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SUPER BASIC 6 

Le SUPER BASIC développé par Bernard KOKA- 
NOSKI sur MZ 800 est maintenant disponible en 
version cassette. Cet interpréteur, certainement 
le plus complet existant sur micro-ordinateur, a été 
décrit en détails dans le Sharpentier n° 14. Rap- 
pelons que ce BASIC est totalement compatible 
avec le BASIC SHARP et qu'il possède une tren- 
taine de fonctions supplémentaires permettant, 
entre autres une programmation de type STRUC- 
TUREE identique à celle du langage PASCAL. 
Accompagné d'une notice très détaillée SUPER 
BASIC est disponible au club au prix de 1 50 F. 

PEEK POKE CALL USR 

Vous êtes de plus en plus nombreux à nous poser 
cette anodine et angoissante question : « pouvez- 
vous m'expliquer comment utiliser les fonctions 
PEEK, POKE, CALL ou USR ». En fait, c'est 
comme si vous nous demandiez de vous expliquer 
la théorie sur la loi de la relativité... ou presque ! 
La réponse à cette question passe d'abord par l'ap- 
prentissage du langage du microprocesseur qui fait 
fonctionner votre micro. Elle demande également 
un minimum de connaissances concernant l'utili- 
sation, la gestion et l'organisation de la mémoire 
interne du dit micro par le microprocesseur sus- 
nommé. Bref, cela requiert une bonne connais- 
sance de cette science divine qui se cache derrière 
2 lettres magiques : L.M. 

Au club, plusieurs solutions vous sont offertes 
pour vous initier à ce nouveau langage : 

• les « TECNICAL REFERENCE MANUAL » qui 
vous permettent de tout savoir sur le microproces- 
seur et l'organisation interne des principaux PC et 
MZ. 

• Les cours « LM sur MZ » et « LM ESRH » qui 
vous initient au B.A. BA du langage machine. 

CRITERIUM SHARPENTIERS 

Les règles en sont très simples mais 
peuvent rapporter gros aux SHARPEN- 
TIERS courageux : 

1. Tout Sharpentier dont l'article, le 
programme ou l'astuce aura été publié 
dans le bulletin SHARPENTIER sera 
d'office inscrit au club, gratuitement, 
pour une nouvelle année. 

2. A la parution de chaque bulletin, 
l'un de ces auteurs se verra offrir l'un 
des plus récents produits SHARP. 
Vainqueur du numéro 16, Monsieur 
Jean HERY, auteur d'un superbe arti- 
cle sur PC 1261, il gagne ainsi un PC 
de son choix. 

A vos claviers... 


• Les programmes en L.M. que nous présentons, 
le plus souvent commentés, et qui doivent être 
considérés comme des supports pratiques et péda- 
gogiques à votre initiation. Bref, ce long prélimi- 
naire était destiné à vous mettre en garde contre 
une utilisation inadéquate de ces instructions igno- 
rées des manuels PC et qui peuvent conduire à un 
plantage ou à un fonctionnement fantaisiste de 
votre machine; 

PEEK (yyyy) Lit la valeur contenue dans l'adresse 

yyyy 

POKE yyyy, xx Place la valeur xx dans l'adresse 

yyyy 

CALL yyyy ou USR (yyyy) Lance l'exécution d'un 
programme L.M. à partir de l'adresse yyyy. 

PAROLE ET MICROS 

C'est le titre d'un ouvrage qui vient de paraître aux 
éditions CEDIC/NATHAN. L'un de ses auteurs, 
Hervé Benoit est également l'auteur de nombreux 
articles MZ 700 de notre revue. Une partie est con- 
sacrée au MZ 700/800 et vous permettra de con- 
cevoir et de programmer une interface vocale pour 
votre MZ. Ayant pu tester cette interface, nous 
pouvons vous assurer que les résultats sont éton- 
nants de vérité et qu'un jeu ponctué de réflexions 
sarcastiques venant du MZ prend une tout autre 
dimension. La fabrication de la carte électronique 
est à la portée de tout bricoleur amateur et les logi- 
ciels sont fournis dans ce livre qui contient égale- 
ment toutes les bases théoriques de la synthèse 
vocale. 

ACIIOP 

Signalons dans les publications à posséder sur 
PC-1 500, les bulletins de l'ACUOP, autre club spé- 
cialisé dans le PC-1 500, et notamment ses deux 
derniers numéros (1 6 et 1 7) avec des études par- 
ticulièrement complètes sur la CE-1 58 et la fonc- 
tion TIME. 

Adresse : 

ACUOP 

Cheilly-les-Maranges 
71150 Chagny 

BASIC UNIVERSAL» 

Le nombre de machines, sans cesse croissant, 
pour lesquelles nous devons présenter nos diffé- 
rentes applications nous oblige à proposer chaque 
programme dans la catégorie du produit pour 
lequel il a été conçu. Cependant bon nombre de 
programmes écrits en Basic sont aisément trans- 
posables sur d'autres PC ou MZ. Quelque soit l'or- 
dinateur que vous utilisez, n'hésitez pas à lire l'en- 
semble des articles de ce bulletin. Vous y décou- 
vrirez des astuces, des routines ou des program- 
mes BASIC complets dont vous pourrez, sans trop 
de peine, tirer profit moyennant quelques légères 
adaptations. 

- r-n 


BUGS...BUGS...BUGS. 

N° 15 

FONCTIONS MATHEMATIQUES 

Vous avez dû vous apercevoir de nombreuses 
coquilles dans l'article sur les fonctions mathé- 
matiques. Avant de passer à la suite de cette 
étude, voici les corrections les plus graves. 

Page 12 
§ 1 ligne 1 

L'apparition du t 
§3 ligne 2 et 3 
On le nomme a 
Iigne4 

, on aura cette fois OY 
ligne 5 

0X=C0Sa et 0Y=SIN ot 
ligne 8 

(X,Y) = (R*C0S a,R*SINûf) 
a variant de 0 à 2 1 radians, 
ligne 9 
a+2k7r=û! 

§4 TANGENTE 
ligne 1 

L=TAN a= SIN X a 

X COS a 

Remarquer que si a= tt+Ictt avec k entier 
2 

COS a=0 donc TANa n'est pas définie. 

Placer sur le dessin, a sur la flèche allant de Ox à OP; 
L=R*TAN a 
COS a = 1 

SIN a TAN a 
Page 13 

§5 ACS, ASN, ATN 
ligne 8 

Compris entre - 1 et 1 
§6 SQR et 
ligne 5 
a b 
ligne 9 
a 3 
ligne 17 
a (1/N) 
ligne 20 
8 (1/3) 
ligne 21 
a (1/2) 

§7 LOG 

ligne 7 8 10 et 11 
a =A B C D E F G H 

INT LOG a =32 10-1 -2-3-4 
a =A B C D. E F G H 

31.4165 =00 3 1.4 1 6 5 

§8 LNetEXP 
LNa = LOGa 

LOGe 

EXP a =e a 
§9 SGN et ABS 
ligne 7 

abs A=SQR (a*a) 

§10 INT 
ligne 9 
a-INT a 

§12 Remplacer f par ^ 
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PC 1350 MACHINE 
LANGAGE REFERENCE 
MANUAL 

Comme ses prédécesseurs, le PC 1350 possède mainte- 
nant son manuel de référence. Il explique et commente le 
fonctionnement du microprocesseur SC 61860, et son 
implantation dans le PC 1350 (Pointeurs, Memory Map, 
adresse système). Une description HARD du PC et de ses 
périphériques complète ce manuel indispensable pour qui 
veut développer ses connaissances sur ce produit. Cet 
ouvrage (en anglais) peut également être utilisé par les pos- 
sesseurs de PC 2500 dont le microprocesseur, donc toute 
la partie LM est rigoureusement identique. 


B « 

_ ADRESSE 

| 

vous prie de bien vouloir lui faire parvenir 

i B D/Recueil(s) des n° 1 à 5 des bulletins SHARPENTIERS 
I® / au prix de 110 F. (port compris) 

1 W Bulletin(s) SHARPENTIER n° 6D, 70, 8D, 9d, 10D 
ÊW au prix de 20 F chacun 
mm Bulletin(s) SHARPENTIER n° lin. 12a, 13a 
il au prix de 25 F chacun, 
la n°14D 15 □ 16 □ au prix de 30 F. 
rU Manuel(s) Langage Machine PC 1500 □, PC 1251 □, 
V£ PC 1350 □ au prix de 180 F chacun. 

| O Manuel de référence MZ800 

■ au prix de 240 F l'un 

Ci-joint un chèque de francs. 


MANUELS L.M 
PC 1500 PC 1251 
MANUAL MZ 800 





Ces 4 manuels, en Anglais, très bien documentés, sont des ouvra- 
ges de référence et n'abordent pas l'initiation au langage machine. 
Ils sont disponibles directement au Club, le mercredi après-midi 
(exclusivement), au prix de 1 70 F (MZ800 : 230 F) l'un ; ou par cor- 
respondance au prix de 180 F (MZ800 : 240 F) (port compris). 
Le manuel LM PC 1251 s'applique également à la série PC 14XX, 
aux PC 1 260. 



dub 


Vds. PC 1500-1000 F. Imprimante: 
1 200 F. et 7 Mem. 8K. à 350 F. ou 
Echange contre un PC 15Û0A + 2 Mem 
16K ou 2 PC 1500A + 1 Mem 16K. 
PAHOR Louis, 4 rue du Marché 06300 
NICE. Tél : 93 80 51 29 


Vds. PC 1500A + CE 150 + Coffret et 
nbreux accessoires état neuf, servi 1 h. 
2 500 F. Facilités de paiement possibles. 
MAZOT Michel, Ibis av Porte de la Villette 
75019 PARIS. Tél : 42 03 42 75 


Vds. MZ 80K excellent état. 48 K. Mev. 
+ Logiciels dont jeux d'échecs. Prix : 
1 500 F. Tél: 60 26 14 84 après 19 h. 
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En 1912, à Tokyo, monsieur Tokuki 
HAYAKAWA fonde une petite entre- 
prise de métallurgie. Trois ans plus tard, 
il invente un crayon révolutionnaire: 
le premier porte mine à avance méca- 
nique et l'appelle EVER SHARP PEN- 
CIL (le crayon toujours pointu). Le suc- 
cès commercial est immédiat et don- 
nera un nom et une véritable dimen- 
sion à la nouvelle société SHARP. 
Ainsi, contrairement à une idée reçue, 
SHARP est une société relativement 
ancienne puisqu’elle fête, en 1986, ses 
74 années d’existence. Au fil du temps, 
l’ascension de cette entreprise est 
jalonnée d’inventions et d’innovations 
très en avance sur leur époque. En 
1926, c’est le poste de TSF à crystal ; 
trois ans plus tard, nait le premier poste 
de radio à lampes Anode cathode, le 
«SHARP DYNE». 


1964: apparition, en première mon- 
diale, de la première calculatrice de 
bureau entièrement électronique. Un 
modèle de ce petit chef d’oeuvre est 
maintenant exposé au musée des Arts 
et Métiers. 



1969 : commercialisation des premiè- 
res calculatrices de poche. 


tom we , 

Ce crayon, présent sur fy 

toutes les photos de f/K/ f v* 1 v 
nos nouveaux produits^sf remblème, la mascotte, le 
talisman de tous les « Sharpentiers du monde ». 

C’est également le symbole d'une tranche de notre 
histoire contemporaine : le Boum économique 
japonais. 

Cette histoire commence dans le lapon encore 
inconnu du début de ce siècle. 

Il était une lois ♦♦♦ 



1962 : premiers fours à micro ondes. 

1963 : fabrication en série des premiè- 
res cellules solaires au silicium. 



1980 ; apparition des premiers traduc- 
teurs de poche et de la synthèse 
vocale sur les calculatrices, horloges et 
caisses enregistreuses. 

1981 : naissance du premier ordina- 
teur de poche programmable en 
BASIC, le PC 1211 et de la série des 
ordinateurs de table AAZ. 




Les cinq dernières années ont vu se 
développer et s'intensifier les recher- 
ches dans les domaines de technolo- 
gies de pointe : l’informatique (ordina- 
teur portable 16 bits), la vidéo (intégra- 
tion de l'ordinateur et du téléviseur), 
la photocopie (premier photocopieur 
à microprocesseur puis photocopie 
couleurs), le son (lecture laser). Certains 
secteurs, réservés au marché intérieur 
japonais ont également bénéficié du 
travail des bureaux d’études SHARP : 
la climatisation, l’électro-ménager, 
l'énergie solaire, les robots industriels, 
la médecine. 

Voilà pour l’histoire. 


Aujourd’hui, SHARP, c'est 50 000 
employés dans le monde dont 27 500 
au Japon, c’est 32 usines et 135 pays 
qui utilisent quotidiennement toute 
une gamme de produits qui ont révo- 
lutionné notre univers et notre mode 
de vie quotidien. SHARP, c'est un chif- 
fre d’affaires, pour 1985, de 37 milliards 
40 millions de francs dont sont extraits 
3 milliards 110 MF, soit près de 9% 
pour la recherche et le développe- 
ment. Cette proportion, énorme en 
regard de celle de la majorité des 
entreprises occidentales permet de 



Le centre de style crée le « look » des produits SHARP. 
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fabriqués les nouveaux circuits intégrés 
à très haute intégration (V.L.S.I.). On y 
étudie également un art que SHARP 
maîtrise maintenant parfaitement : la 
Conception et Fabrication Assistée par 
Ordinateur (C.F.A.O.). 

Résultat spectaculaire du travail de 
cette « usine à cerveaux » : la chaîne 
automatique de l’usine de calculatrices l 
qu débite tranquillement ses 2 500 000 
(oui ! deux millions et demi) de calcu- 
latrices par mois. Ici tout est informa- 
tique, robotique et automatismes. Une 
batterie de 50 robots conçus et fabri- 
qués par SHARP prennent en charge 
tout le processus de fabrication, 
depuis l’insertion et la soudure des 
composants, afficheurs et touches 
jusqu'à l'emballage accompagné du 
mode d'emploi. 700 humains seraient 
nécessaires pour effectuer les mêmes 
tâches dans le même temps. Ici, 5 hom- 
mes suffisent à assurer le bon fonction- 
nement de ce mastodonte. La vérifica- 
tion automatique en fin de cycle de 
fabrication est un poste très important 
de cette chaîne. Aucune erreur n’est 
admise. Cela permet de répondre aux 
deux impératifs permanents et quasi 
obsessionnels des dirigeants de 
SHARP : QUALITE et FIABILITE. 

En toute logique, la performance tech- 
nologique que représente cette unité 
de fabrication est reproduite dans tou- 
tes les usines du groupe pour élabo- 
rer les différents produits manufactu- 
res conçus par les centres de recher- 
che ; du plus modeste composant au 
plus puissant des ordinateurs, en pas- 
sant par le photocopieur et l'aspira- 
teur. 

Décrire le formidable essor technolo- 
gique japonais est, en fait, relativement 
simple. Des chiffres éloquents et quel- 
ques images choc suffisent pour mesu- 
rer l’ampleur des progrès accomplis en 
quelques années. Parler des acteurs de 
cette révolution, les Japonais, est 
chose beaucoup moins aisée car notre 
esprit occidental latin et cartésien 
éprouve beaucoup de difficultés à 
comprendre et assimiler la psycholo- 
gie et le mode de pensée japonais. 
Alors, le secret de cette réussite ? Il 
tient peut être dans ces quelques 
lignes, écrites par Monsieur Akira 
SAEKI, président de SHARP CORPO- 
RATION et dont sont imprégnés tous 
les employés de cette entreprise : 

« Politique des affaires 
SHARP a fait sienne deux vertus : hon- 
nêteté et créativité. 


Un rouleau de cellules solaires qui vont être ensuite découpées. Cette « araignée » vérifie en quelques centièmes de 

seconde le bon fonctionnement d'un microprocesseur. 

Un élément de la chaîne de fabrication des calculatrices. 



Du respect de ces vertus nous tirons 
satisfaction dans notre travail et nous 
apportons une contribution réelle à la 
société. 

L’honnêteté doit être le fondement 
des rapports humains... soyons 
honnêtes. 

L’harmonie traduit la puissance... Tra- 
vaillons la main dans la main. La poli- 
tesse est une qualité respectée... 
soyons courtois et respectueux. 

La créativité est le moteur du pro- 
grès... Restons éveillés et inventifs. 

Le courage est toujours récompensé... 
Ayons une attitude positive et relevons 
les défis. 

Philosophie commerciale. 

Notre raison d’être n’est pas seulement 
la poursuite du succès matériel. Nous 
sommes également soucieux de faire 
profiter notre clientèle de notre tech- 
nologie de pointe afin d'améliorer ses 
conditions d'existence. De ce fait, notre 


politique est orientée vers le dévelop- 
pement du potentiel du bien-être de 
nos employés car notre prospérité est 
liée à celle de nos clients, tous mem- 
bres de la grande famille SHARP ». 

Sylvain BIZOIRRE 

Le test des écrans à cristaux liquides. 







Les affaires club sont essentiellement constituées 
de matériels, accessoires ou périphériques qui ne 
sont pas (ou plus) commercialisés par le réseau de 
revendeurs SHARP. Comme vous pouvez le cons- 
tater, leurs prix sont très attractifs. Une précision. 





k 




toutefois, seules, les « Affaires club » sont com- 
mercialisées par le club, à l'exclusion de tous 
autres matériels normalement distribués par les 
points de ventes SHARP. 
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MZ 730 

Comprenant : Ordinateur MZ 720 

+ Imprimante table traçante intégrée 
+ Cassette BASIC 
+ Câble PERITEL 
+ Manuels 


MZ 1P01 

Imprimante table traçante pour MZ 700 



CE 160 

Module mémoire 16 K, non protégé pour PC 15 1 




CE 155 

Module mémoire 8 k, non protégé pour PC 1 500 


CE 122 

Interface cassette imprimante pour PC 121 1 


EPF 1500 
L'EPF 1 500 est 

PENTIi MI 

société 


ible, en exclusivité au Club des SHAR- 
TTC. port- compris (règlement à l'ordre de la 


BON DE COMMANDE 


Je passe commande de : 



QUANT. DESIGNATION 



P.U P.T0TAL ADRESSE. 

TTC TTC 


TOTAL TTC 


Ci-joint mon règlement de F, par chèque bancaire ou C.C.P. établi à l'ordre du SHARP 

BUROTYPE MACHINES*. Il représente le montant total TTC de ma commande. Je prends 
bonne note qu'au cas ou ma commande ne pourrait être honorée dans la limite des stocks 
disponibles, je serai intégralement remboursé du montant des articles non livrés. 

DATE SIGNATURE 

* Pour le connecteur ÛCN, règlement à l'ordre du « Club des Sharpentiers ». 





Un programme d'étude statisti- 
que double manquait à l'appel. 
Ce manque est maintenant 
réparé. Il calcule lés résultats 


statisti ques les pffus courants, et 

Comme ce programme ne présent e aucune dif- 
ficulté peur lent'ée en némoire nous com- 
. menc ons sa n fe p lu s att en d re s a descri pton.l 
Njous avons : Jeux grandes options M'optiorji 
Calcijîs et ïoptioiïGraphjes. Ile pfem er rpenf 
propose ce choix, puis nous place idahis un 
sous-menu. . 

OPTION CALCULS : j 

1 . M4yenne-aritb(Tiétipu&ien4 et^n Y et Cova*- 
ria ncè des deux sériés X i e t Y. Là covariance 


construit des graphi 
maximum de 50 c< 
plus,_il nécessite une 
car il occupe rions 
moins 4Ko. 


hes pour un 
ne carte ram 


l'état au 


- -e^ltéjeaf^alfébfipue .moyen entre X et v et, 

- XM et YM. 

2. V ari ande et Ecarts-types ;t param ètres d e 

dispersion de a série. iOn a@(X) = SQFU(X). 

3. Polrcefitagesle la série. Pour un effectif 
+ supérieur jj trois, uh appui $ur EjNTER eét néces- 
saire pour la suite dé l'affichage. 

4 . ' Ajdsterhen: iinéarre quiestia détermination 
f d'un lien entre les sér es X et Y. La confiance 

en cette estimation est exprimée par le coeffi- 
cient de corrélation linéaire ; plus sè valeur 


gr ande. De plus, l'ang le e ntre les deux droites 
de régression pont l'e xpr ession est calculée, 
- degré de corrélai ion iné aire - expri ne cette 
co rélatior . Plus l'ang e est grand, plus cette 
coTélatior est fai oie. 


OPTIO N C 

Lemeru pi 


exemple. ( 
des gr.iphf 
“le choix 5 

^ as u pt re ! 
1 p ermettre, 
me pts fsup 
unè ut Misa 


IRA PHÊS : 1 

joposè i(|i es : parfaitement explicite, 
c de choisir e tracé requis. IJn appui " 
est obligatoifëaprès le trace de oha-~ 


que le valeu r c e cépat pour des 
mençart à 1 0 OP ou à 53210, par 
leci est indi speisa oie pour obtenir 
iTgïëlcônqjësi 

, dais les deux principaux meiïüsr 


pettf-ies-gfepbesT- 


pressior des pourc entages par ex.), 
ion sans Carte Ram. 


(Tous PC + table traçante) 


EXEMPLE : 

X 1 2 3 5 6 7 _9 12 

Y 2 63 5 2 7. 1.6 


1 <c>*ll*85**B*CHAFF** 
1 ******************** 



Nous prenons pour exemple une série très sim- 
ple qui donne les résultats suivants •: 

MOYENNE : MX = 5.625 MY=4.000 

COVARIANCE: COVIX, Y) = 1.25 

VARIANCES: VX = 11.98 VY = 4.5 

ECARTS-TYPES: EX = 3.46 EY = 2.12 

DROITE DE REGRESSION Y = AX + B : Y= 0.104 X + 3.413 

DROITE DE REGRESSION X = CY + D : X= 0.277 Y + 4.513 

COEFFICIENT DE CORRELATION :@= 0.170 (Ajust. approx.) 



DEGRE DE CORRELATION : &= 1.771 degrés (Angle faible) 

POURCENTAGES : 

XI = 2.22% Y1= 6.25% 

X2 = 4.44% Y2 = 18.75% 

X3 = 6.66% Y3 = 9.375% 

X4= 11.11% Y4 = 15.625% 

X5 = 13.33% Y5 = 6.25% 

X6= 15.55% Y6 = 21. 875% 

X7 = 20.00% Y7 = 3.1 25% 

X8 = 26.66% Y8 = 18.75% 

On peut évidemment aménager le programme pour obtenir sur imprimante, les résultats affichés. 
PRINT = LPRINT a l'avantage d'être simple d'emploi, mais ne donne pas une présentation parfaite. 

Benoît CHAFFANJON 


190: "***PRESENTATION**fc 

200: UIAIT 0: CURSOR 0: PRINT "////////// 

210: CURSOR 72: PRINT "///////////////// 
///////“-. RETURN 
220: WAIT 0: CURSOR 27: PRINT " 

230: CURSOR 50: PRINT " 

": RETURN 

240: "***DEBUT PROG.*** 

250: "C" CLS : WAIT 0: USING : CLEAR : 
DEGREE : H=2: GOSUB 200 
260: CURSOR 24: PRINT "//////BIGBENSTATS 
///////": CURSOR 48 
270: PRINT "//STATISTIQUES/DOUBLES//": 

WA I T 135: PRINT 
280: "***NBRE DONNEES*** 

290: GOSUB 220: CURSOR 27: PRINT "Nombre 
de couples?": CURSOR 57: INPUT " " 
5N 

300: IF N< 2 OR N>50 THEN 290 
310: "***ENTR. DONNEES*** 

320: CLS : GOSUB 200: GOSUB 80: DIM XCN) 
,Y(N> 



330: CLS : PRINT " Entrée des données" — 
: GOSUB 180: FOR J=1 TO N 
340: CURSOR H*24: PRINT "XC"; STR$ Jî") = - 

": CURSOR 4+ LEN STR$ I,H: INPUT 
XCJ) ~~ 

350: IF XCJ) >=K LET K=XCJ> 

360: CURSOR 12+H*24: PRINT "YC“; STR$ J5 “ 
") = ": CURSOR 16+ LEN STR$ I*H: 

INPUT YCJ) 

370: IF YCJ) >=U LET U=YCJ) 

380: I=I+i:H=H+i: IF H=4 LET H=2 
390: "**CALCULS PRELIM.** 

400: L=L+YC J )' s 2» t1=M+XC J)^2 j SX=XC J)+SX, SY 
=YCJ)+SY»P=P+XC J)*YCJ) : NEXT J 
410: MX=SX/N, MY=SY/N, UX=M/N-MX''2» UY=L/N- “ 
MYn2.EX= .SQR UX,EY= SQR UY,CO=P/N-M 
X*MY ~ 

420: RO=CO/CEX*EY) , Al=CO/UX, B1=MY-A1*MX, 
A2=C0/UY » B2=MX-A2*MY 
425: DE= ACS C CA1*A2+B1*B2)/C SQR CA1^2+ 
B1 A 2) * SQR CA2 a 2+B2 a 2) ) ) 

430: "**MENUS D^ENTREE** __ 

440: CLS : GOSUB 200: CURSOR 24: PRINT " 
Graphes > Ca I eu I s ou Fin ?": CURSOR 5 
' 5: PRINT "CG/C/F)" ~~ 

450: EE$= 1NKEY$ : IF EE$="" THEN 450 
460: IF EE$= "F" THEN 1280 
465: IF EE$="G" THEN 770 
470: CLS : WAIT 0: PRINT " Faites uotr 
e choix": GOSUB 180: WAIT 30 
480: CURSOR 48: PRINT "Cl) Moyenne s /Coua 

riance": CURSOR 72: PRINT " C2) Uar i _ 
ance /Ecart -type " 

490:PRINT "C3) Pourcenta9es C5)Tout": _ 

PRINT "C4) Ajustement linéaire" 

500: FF= UAL INKEY$ : IF FF=0 THEN 500 _ 

505: IF FF=6 THEN 440 

506: IF FF=3 LET FF=4: GOTO 530 _ 

507: IF FF=4 LET FF=3 

510: IF FF=5 LET FG=1,FF=1 

520: "***DISTRIBUTION*** 

530: BEEP 1: ON FF GOSUB 560» 610» 660, 118 
0 

540: IF FG=1 AND FF<4 LET FF=FF+l: GOTO - 
530 

550: GOTO 470 - 

560: WAIT 0: CLS : USING : 

PRINT " MOYENNES COUARIANCE": 

CURSOR 48: PRINT "MX="ÎMX 

570: CURSOR 72: PRINT "MY=" » MY - 

580: USING "#####.####": CURSOR 61: 

PRINT "COU CX, Y)=" 

590: CURSOR 85: PRINT CO: GOSUB 150: 

WAIT : GPRINT : RETURN — 

600: "***UAR. & EC.TYPE*** 

610: WAIT 0: CLS : USING "#####.##": — 

PRINT " UARIANCES ECARTS-TYPES" 

620: CURSOR 48: PRINT "UX="ÎUX: CURSOR 7 — 

2: PRINT "UY=";UY 

630: CURSOR 61: PRINT "EX=";EX: CURSOR 8 — 

5: PRINT "EY=";EY 

640: GOSUB 150: WAIT : GPRINT : RETURN 


650: "***REGR. LINEAIRE*** 

660: WAIT 0: CLS : PRINT "Cl) Re9ression 
linéaire": PRINT "C2) Corre ! at i on 
I i ne a i re " 

670: PRINT "(,3) Retour au menu": PRINT " 
C4) OPtion Graphes" 

680: A= UAL INKEY$ : IF A=0 THEN 680 
690: ON A GOTO 700,730,440,770 
700: WAIT 0: CLS : USING "###.###": 

PRINT "DROITE EN X DROITE EN Y" 
705: CURSOR 48: PRINT "Y=";A1Ï" X": 
CURSOR 72: PRINT "+ " î B1 
710: CURSOR 61: PRINT "X=";A2;" Y": 

CURSOR 85: PRINT "+ "ÎB2: GOSUB 150 
720: WAIT : GPRINT : GOTO 660 
730: WAIT 0: CLS : USING "####.###": 
CURSOR 6: PRINT "CORRELATION": 

PRINT "Coe f f i c i ent De9re" 

740: CURSOR 72: PRINT "@="ÜRO: CURSOR 84 
: PRINT "&="ÎDE: LINE C74, 9)-C74, 31 
) 

750: LINE C0,19)-C150, 19) : WAIT.: GPRINT 
: GOTO 660 

760:"***MENU GRAPHES*** 

770: WAIT 0: CLS : PRINT "Cl) Nua9e de P 
oints": PRINT "C2) Dia9ramme en bat 
ons " 

780:PRINT "C3) Histo9ramme C5) Tout": 
PRINT "C4) Camemberts C6) Menu" 
790: UU= UAL INKEY$ : IF UU=0 OR UU>6 
THEN 790 

800: IF UU=6 THEN 440 
803: IF UU=5 LET B=1,UU=1 
806: IF UU=4 THEN 870 
810: "***TRACE CADRE*** 

820: WAIT 0: CLS : S= INT C135/CK-XD) ) : T= 
INT C29/CU-YD)): IF T=0 LET T=1 
830: IF S=0 LET S=1 

840: LINE C3, 0)-C3, 32) : LINE C0,29)-C150 
,29): LINE C147, 27.)- C149, 29) : LINE 
- C147 , 31) 

850: LINE Cl,2)-C3,0): LINE -C5,2): FOR 
C=29 TO 0 STEP -T: PRESET C3,C): 
NEXT C 

860: FOR C=3 TO 149 STEP S: PRESET CC,29 
): NEXT C 

870: ON UU GOSUB 900,950,950,1070 
880: GOTO 770 

890: "***TRACE GRAPHES*** 

900: FOR J=1 TO N: X=3+CXC J)-XD)*S» Y=29-C 
YC J ) -YD )*T : PSET CX,Y): NEXT J 
910: GOSUB 170: WAIT : GPRINT : IF B< >1 
THEN 930 

920: UU=2: GOSUB 950:UU=3: GOSUB 950: UU= 
4: GOSUB 1070 
930: RETURN 

940: "***FIN GRAPHES*** 

950: WAIT 0: H=0: FOR J=1 TO N:X=3+CXCJ)- 
XD)*S, Y=29-CYCJ)-YD)*T 
960: W=3+CXC J-1)-XD)*S» Z=29-CYC J-1)-YD)* 
T: IF J=1 LET W=3,Z=29 
— 970: IF UU=3 THEN 1000 




980: IF B< >4 LINE CX, Y)- CX, 28) : GOTO 102 
0 

990: IF B=4 LINE CX,Y)-CW,Z): GOTO 1020 
1000:1F B< >5 LINE CW+2, 28)-CX, Y) , X, BF: 
GOTO 1020 

1010: IF B=5 LINE CH+2+CW-H)/2, Z)-CW+2+ 
CX-W)/2, Y) , X 

1020: H=W: NEXT J: WAIT 110: GPRINT : 

IF B< 4 GOSUB 170: WAIT 0 
1030: IF UU= 3 AND B< >5 LET B=5: GOTO 95 
0 

1040: IF UU=2 AND B< >4 LET B=4: GOTO 95 
0 

1050: WAIT : GPRINT :UU=0:B=0: RETURN 
1060: " ***CAMEMBERTS*** 

1070: WAIT 0: CLS : PRINT "X": CURSOR 2 
3: PRINT "Y": LINE C74 , 0)- C74 , 31 ) 
1080: X=180» F=7, G=38, H=69: FOR UU=1 TO 
2: IF UU=2 LET F=83, G=114 , H=144 
1090: LINE CF, 30)-CF, 26) : LINE CF,26)-C 
F+4,15) 

1100: FOR P=-27 TO 27 STEP .75:R=-1* 

SQR ABS C961-P*P): PSET CG+P,R+31 
): NEXT P 

1110: LINE CH,30)-CH,26): LINE -CH-4,15 
) : X=360 

1120: FOR M=1 TO N: ON UU GOSUB 1130,11 
40 

1125: GOTO 1150 

1130: I=C180*XCM))/SX: RETURN 
1140: I=C180*YCM) )/SY: RETURN 
1150: DEGREE :X=X+I: LINE CG+31* COS X, 
31*C1- SIN X))-CG,31): NEXT M 
1160: LINE CF , 31 ) - CH » 31 ) : NEXT UU: WAIT 
: GPRINT : RETURN 
1170: "***POURCENTAGES*** 

1180: USING "########. ###": FOR U=1 TO 
2:HA=l: WAIT 15: CLS 
1190: PRINT " > >POURCENTAGES DES <<" 
1200: FOR M=1 TO N: IF ,U=2 THEN 1230 
1210: CURSOR 19: PRINT "X" 
1220:PX=C100*XCM))/SX: CURSOR 24*HA: 

print ">>x m ; str$ m; " =";px; m y. < 

< " : GOTO 1250 
1230: CURSOR 19: PRINT "Y" 

1240: PY=C100*YCM) )/SY: CURSOR 24*HA: 

•print ">>y m ; str$ m, " = m ;py;" ^ < 


1250: HA=HA+l: IF HA< >4 OR N<4 THEN 127 
0 

1260: WAIT : PRINT :HA=l: WAIT 15 
1270: NEXT M: WAIT : GPRINT :HA=l: NEXT 
U: RETURN 
1280: CLS : END 
1290: "X***************** 

1300: "****BIGBENSTAT**** 

1310: "****************** 
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1 0 : Vs 1/3*(C*2*H) 

1 5: GOTO 115 

n n -"ç "• n fad • ddtmt " \/ m 1 iajc n 1 im 

".ddtmt "nvi TkiriDc 

— 

— 



TELLE": PRINT "QUE 14 TTxR^H" 





'tune. 



0 u s.iNrui h: ;n:iNrui H : ;H 
5 1 0:V;TT*R~2*H 









5 1 5: GOTO 115 

S 0 0:"6 ":CLEAR:PRINT “VOLUME D UN..' 

’:PRINT“CONE 

TEL 





LE QUE ". PRINT " 14 1/3*(nxR~2xHl" 







u u j . n'ir 1 n. in.iivr 

6 1 0: V- 1/3*(ïï*R~2*H) 

U 1 

n. 

>n 









0 1 0 
7 0 0 

:uuiu no 

"7": CLEAR: PRINT'VOLUME D UN. 

..".PRINT "TON 




NEAU... .PRINT TELLE QUE... 

7 0 5: PRINT “V*ir*L *(lE/2J*( “:PRINt'(D/3)-lE /3U)~2 “ 
7 1 O.INPUT't: "iL:INPUT"E: "E:INPUT"D: "D 
7 1 SV-TT*LxllF/1blln/3)-lF/3)))*7 

— 

■ — 

— 

7 2 0: GOTO 115 

n c n • t?Kin 
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1 u: inrui itUANULtz uutucu .t:ouiu i 
1 5. INPUT " RECTANGLE": Z: GOTO "2“ 






2 0: INPUT" LOSANGE", Z GOTO 
2 5. INPUT " TRAPEZE".Z GOTO 

"3" 

..... 









3 0: INPUT" TRIANGLE EOUILA 

* T N PUT " fi A PD F" 7 fifilTD " 

Z: GOTO "5" 






4 0: INPUT "CERCLE 

" i. Z GOTO’ 

7" 









* s: INF U! UUUNUNNt 

5 0: INPUT" SECTEUR" 

: A . OU I U 0 

Z .GOTO" 9" 








5 5. INPUT" CROISSANT" Z GOTO "10" 

6 0: INPUT" ELLIPSE". Z:GOTO"ir 








6 5: INPUT " CYLINDRE"; Z: GOTO 

7 n Tkioi it •• rnMC" -7 cnTn"io" 

" 12 ‘ 









7 5. TNPUT” SPHERE". Z:G0T0 ‘1L" 









0 u: iNrut <.alui ic srncruu :ouj u id 
3 5: INPUT" FUSEAU";Z:G0T0T6" 





1 

9 0: GOTO 5 

0 0:"1":CLEAR:PRINT "SURFACE D UN,.. 

‘: PRINT "TRIAN 





GLE...‘ 

.PRINT "QUELCONQUE. 

".PRINT "TELLE QUE.. 



1 

1 

1 

0 5. PRINT" Ss(BxH)/2 : INPUT "9 

: ";B: INPUT "H: " 

H 



1 L 

1 5 

. Dsl o~rvs £ 

: BEEP 1 













1 

1 

2 0 : PRINT S 
2 5: GOTO 5 

r ;S 












2 0 0: "2 CLE AR : PRINT" SURFACE D UN..": PRINT "REC 

TA N fil F TF! / F " PRTNT "DI JF 



2 0 5: INPUT'B: "B:INPUT"H: 

H 








2 

i 

1 5 

: Dso*n 

GOTO 115 















3 0 0: 3 : CLEAR: PRINT SURFACE D UN.. 
GE TELLE.. "PRINT" QUE SjL*I)/2 

. PRINT LÜSAN 



3 0 5: INPUT 'L: " ;L:INPUT"I , 

lin c.// xtls? 

; 

r 








3 

; 5 

! GOTO 115 




t* u u 

. «# . ll c/irr. rrui'i t Dunrrtuc u uiv.. .rnini i nn 

PEZE...": PRINT TELLE QUE... "PRINT "Sx((B x L)/ 



4 

2)* H 

0 5: INPUT"B: 

";B:INPUT"L: 

".L: INPUT" H: 

".H 




4 

L 

1 0: Sx((B*L)/2)*H 

1 Ç- fiDTD IIS 












5 0 0: "5 

"CLEAR: PRINT "SURFACE D UN. 

“.PRINT "TRI 





ANLfLc . . . 

QUE..." 


£ UU1LAI tzKAL 

.. :rh<iw i £LL£ 



5 0 5 : PRINT Si IICxCJ 
5 1 0: SJ(CxCl*f3)/L 

* P3)/ 4 

: INPUT C: 

C 





5 1 5: GOTO 115 

K n faq prtnt‘'^j iffahp n 1 im 

“ PPT NT” fi.APPF 





TELLE...": 

PRINT "QUE S= 

C*C 









5 Q 5: INPUT C: 
5 1 Q’ Ss C*C 

"C 













6 1 5 .GOTO 115 

7 n n ■“'7 , ‘n cad ■ mDTkiT"ci idcai^c nu*/ " 

: PRINT "CERCLE 






TELLE.." 

PRINT 

"QUE SsTT*R*R" 



* 






































7 0 5: IN PU T "R: “.R 
7 1 0 : S z TT* R* R 

7 1 5: GOTO 115 

8 0 0 : “8.“: CLEAR : PRINT" SURFACE D UNE.. “PRINT "COU 

RONNE . . . “PRINT “ TELLE QUE ... " PRINT "S= ÏÏ*(R~2 
-P~2)“ 

8 0 5: INPUT "R: “.R INPUT" P: P 

8 1 0: S=TT*(R''2-P~2) 

8 1 5: GOTO 115 

3 0 0: ”9 “:CLEAR:PRINT“ SURFACE D UN ..“.PRINT "SEC 

TEUR...“: PRINT" TELLE OUE . .“.PRINT "S. (TT*R'2* 
N)/ 360 “ 

9 0 5: INPUT “R: “R:INPUT“N: ". N 
9 10: S=lïï*R' K 2*N)/360 

9 1 5: GOTO 115 

1 0 0 0: “10" CLEAR PRINT “SURFACE D UN... “ PRINT “CROI 
SSANT TELLE" PRINT “QUE S;R~2“ 

1 0 0 5: INPUT" R: “-R 
1 0 1 0: S=R~2 
10 15: GOTO 115 

1 1 0 0:“11": CLEAR: PRINT“SURFACE DUNE. .“PRINT "ELLIP 
SE TELLE. ."PRINT “QUE S=TT*RxP‘‘ 


1 1 0 5 : INPUT" R: “R .INPUT'’ P: ‘‘.P 
1110: S= TT* R* P 
1115 • GOTO 115 

1 2 Q 0” 12 “CLEAR PRINT “SURFACE D UN . “PRINT “CYLIN 
DRE TELLE": PRINT “QUE S=2*TT*R><H“ 

1 2 0 5: INPUT" R : “.RINPUT" H: ”.H 
12 10: S=2*Tî*R*H 

12 15: GOTO 115 

1 3 0 0 “13 " CLEAR: PRINT "SURFACE D UN. . “:PRINT"CONE 
TELLE QUE “ PRINT "Sr P* P* 4 " 

7 3 0 5: INPUT" R: “.R INPUT “A: “A 

13 10: S=ÏÏ*R*A 

7 3 1 5 : GOTO 115 

1 4 0 0 “1C.CLEAR: PRINT "SURFACE DUNE. “PRINT “SPHE 
RE TELLE.. ‘‘.PRINT “QUE S=t*TT*R~2" 

1 4 0 5: INPUT “R: “.R 
1 4 10: S=L*TT*R~2 
7 4 7 5. GOTO 115 

1 5 0 0: “15“ .CLEAR. PRINT "SURFACE DUNE." PRINT “CA 
LOTTE SPHERIQ " PRINT “TELLE QUE . “:PRINT“S= 
2*ÏÏ*R*H“ 

1 5 0 5: INPUT" R: “R INPUT“H: " H 




INT/FRAC 

INT, provient de l'anglais INTe- 

Î ier, nombre entier. INT est une 
onction qui renvoie la partie 

PRINT INT (4,25).. l'écran affichera 4. L'argu- 
ment, s'il comporte une opération arithmétique, 
doit être mis entre parenthèses, et peut être, 
un nombre, une variable, oui une expression. 
La fonction INT fournit le plus grand entier infé- 
rieur au nombre ; c'est-à-dire qu'un nombre 
positif devient moins positif et qu'un nombre 
négatif devient plus négatif. 

Cette fonction est utilisée pour arrondir les 
nombres à leur valeur entière, tout en conser- 
vant le signe qui le précède. Pour obtenir un 
arrondi correct des nombres positifs il suffit 
d'ajouter 0,5 au nombre à arrondir avant d'uti- 
liser la fonction INT. Cette fonction arrondit 
toujours vers le bas. 

Exemples : 

365,25 + 0,5 = 365,75 arrondi à 365 
365,76 + 0,5 = 366,26 arrondi à 366 
Examinons maintenant comment la partie 
entière d'un nombre est obtenue avec la fonc- 
tion INT: ' 

Exemples : 

avec un argument positif : 

A = 365,223368 INT A = 365 
A = 365, 9999999 INTA = 365 
A = 365 + 1E-99 INT A = 365 


entière de son argument 
numérique. 


Avec un argument négatif : 

A= -365,223368 INT A= -366 
A= -365,00000001 INT A= -366 
A= -365,99999999 INT A= -366 
A = - 365 + 1 E - 99 INT A= -365 
Il faut convenir que ce résultat n'est guère 
satisfaisant. C'est alors que j'ai essayé une 
autre façon d'obtenir la partie entière d'un nom- 
bre ou d'une expression. 

Après différents essais, j'ai découvert que l'on 
pouvait remplacer avantageusement:: INT A 
par NOT A + 1 , et FRAC A, par 
A-jNOT-A+1), dont les résultats sont 
exacts dans la limite binaire de -32768 à 
+ 32768. Faites des essais, vous verrez que 
cela marche. 

Ensuite, j'ai trouvé encore plus simple, évidem- 
ment dans les mêmes limites du fait de la pré- 
sence de l'opérateur binaire « OR ». 
Reprenons par exemple, un des arguments pré- 
cédents : A = 365,223368 et cherchons la 
contre-valeur de INT A. En faisant (A OR A) on 
obtient 365, et si nous reprenons le même 
nombre en négatif : A = - 365,223368, nous 
obtenons : - 365, ce qui est parfait. Nous nous 
apercevons donc que si A est positif, la partie 


entière est positive, et que si A est négatif, la 
partie lentièrei négative, sans majoration, ni 
minoration de la valeur absolue. 

C'est devant ce résultat que j'aipensé à la fonc- 
tion FRAC. 

FRAC est une fonction numérique qui renvoie 
la partie fractionnaire d'un nombre ou d'une 
expression numérique: Cette fonction est inti- 
mement liée à la fonction INT. Les erreurs que 
cette dernière apporte sont répercutées dans 
la fonction FRAC qui en découle. 

Nous venons de voir que la fonction INT est 
représentée par (A OR A), il est facile d'en 
déduire que la fonction FRAC est égale à : 
A -(A OR A). 

Exemples : 

A = 365,223368 FRAC = A - (A OR 
A) = 0,223368 

A= -365,223368 FRAC = A - (A OR 

A) = -0,223368 

FRAC est positif si A est positif 

FRAC est négatif si A est négatif 

de plus cette opération est associative, car 

« INT A » plus « FRAC A » est équivalent à 

« A » .! De cette façon , la fonction FRAC étant 

exacte, on peut l'extraire de A pour obtenir INT 

A, de même que l'on peut ôter INT A de A pour 

obtenir FRAC A. 

Jean DUBUS 
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PC 1401 UTILISATEUR 


?R1 = 

?R2 - 
?R3 = 
?R4 = 
?R5 = 

?R6 = 

?E = 

VBE = 
BETA = 100 
IC B0 
RO = 


DEF "A" 
100 E3 ENTER 
100 E3 ENTER 
0 ENTER 
600 ENTER 
1E3 ENTER 
0 ENTER 
25 ENTER 
.6 ENTER 
100 ENTER 
10E-9 ENTER 
1E90 ENTER 


ETUDE DYNAMIQUE 


'Socfa' 


:iaa__ 

I.5.KQ 


ETUDE DE Tl 
SORTIES 

VCC = 25 V 

VBB = 12,5V I — ■ 

RE = 50 <Q 

I R C I60Q n _ _ 

RE = jïl| 

TC^ptl mÀ 

VCE = 12,31V ' 

S = 34, 11 

S' = -0,6622 mAV 

; -Df}D-i----|21 ,96 - T - -- 

[habilité inconditionnelle 



ETUDE DE T2 


SORTIES 


-==-2fV— 
^oi5V_ 
^500lkfi 

= ïôp 
= 5 kfi 

= 19V 


-4PW- L -~[ 

= 13,13 -► staoilite condhionr elle 

= 1j ENT ER i (élé va tion de l °C ) 

lïx 4 306, 1 kfi thdrmiijue | j 


Etage N : 1 


Etagé N"2 


RÈ i 
=tlOKO 




PARAMETRESDONNES 


hl 1 * 10OO.fi 
h12 = 10- 4 
h21 = 100 
h22 = 5.10-e O-i 


SHARP 


PC 1401 


R source 


R charge 


UTILISATEUR 
DEF "M" 

1000 

1E-4 

100 

5E-6 

2 

EC 

CRS 

1000 

DR 

50E3 

600 

ENTER 

CC 

DR 

500 E3 
5E3 
ENTER 
2 

0 (on commence 
toujours par la fin) 

10E3 




R IN = 1 ,995. 1 0 5 
R OUT non valable 
(11* AV = 9,97 -10- 1 


DEF “T 


ETAGE N° : 
R SOURCE 
R charge 


(2) *RIN = 3,346- 10 4 
R OUT = 5,999-1 0 2 

(3) '* AV = 5,778-1 0’ 1 


DEF ‘T 


ETAGE N° 
R SOURCE 
R charge 


R N = (2.) = 33,46 kQ 
"Rpr = (4) = 15,78 fi 
"StT= dix jî:| = -0,57 
7^^Asrxt2î7lîir+X9r 
Ars = A\Ptf2) {(2)+-RSi _ = _ 


N = X + Ü*i-/ • ï I* 1 = ’ï 4- V * L ! î 

S=£* V •••■' 7:E=E*Cu+V) / T 
3ï INPüT v VBE= v ? R* W BETA 
= M ü 3? y ICB8= W ? 1 ? ' Rü = ,- ‘ 
? Qï P=B+1 

4 : Z= < O-H* > * < Q+N+M ) - ( N-Q 

) *1*1 ï L= ( ( 0+H ) * ( E+Q* 
P+I >“<S“R>*<N-ü*B} )••••' 
Z 5 K=£-L*< N+M*P/B ) 

5 ; J = P ; t: < 0 + r, l ) * Q / Z ï h = ( fl ~ B 

*Q) /Z! US ING 
M 5 PR I NT 1,1 vCC = y ? Eï 
PR INT M VBB= W ? S* PR INT 


8 ï PR INT !, ’RE= ? N: PKlNT 


PR INT V S V +UHK$ 39+ - 
5 H*1E3: Z=E-2*(N+N}* 
L! PR INT V 3PD= V 5Z 
î IF Z >8 INPÜT V 3TJ= V 5 
14! PRINT V RTH= V 5 RCP ( 
< 87 rt W-l )+H*-2 

,5*W)- / !4/lE3*Z):ENB 
! PR INT ''STABILITE'''*" 
PRIhT v INCONDITIONNE 
LLE V ! END 

î M S v CLEAR ï INPÜT y RL 
= "' 5 Z? M B= V ? B > H 1 1 = ? H 
? '' I C = '' ? I ? C B ^ E = ? ü ? 

C B >•'■* C = '** 5 D 

» 14= < l+B)*26E-3/I ! N=H- 
14: V=-B^Z- / Wï Y=C+D+< 1- 
V)! INPüT v R->RBB rt=v 5 
Rî R=R+N ‘ 

ï USINE ***.m**! 
PRINT V AV*SV:PRINT 
p l :+: = M \ j.4 ï p p J N T C I * = 
? Y»" PRINT M RBB rt = v 5 N*" 
14= ( 14+R ) •••" N R •••" Y 
SPRINT v i4H= v ? 14s PRINT 
"Fh="ïW/2E3/J[! v KHZ v ï 
END 

: V B V GOSUB 26s Z=l-K+J 
+F:A1=L/Z:A2=<F+K>/Z 
!A4 =H/ZîA 3=“(F+J)/Z 
: GOSUB 25! RETURh 
! V C A1 =Lï A2=l-Kî A3=-l 
-J ! A4=H 

• l=A 1 ! K=A2! J=A3ï H=A4 


26! ' ii ’ P =L*H“ J*K ï KETüRN 
27:*DR* INPÜT v Rl= v «Rl5 
y R2= “ 5 R2ï Z=1+L*RCP R 

T 

2 ’6 • ÂjjPL/Z ï A2=K./Z : h3=J/Z 
; A4=<'h+F*RCP Rl)/Zt 
RCP R 2 

29! GüSüB 23 ï GOTO 58 
38 ! v CRS v INPÜT R= v 5 R « Z 
=1 +R*H: A 1=<L+R*< 1-K+ 
J+F ) ) /Z ï A2= < K+R*H ) /Z 


Rs 2=14-1*7! Al : 


37î?=R#p/CR+P)ïPRTNT 


42 ï INPüT ■ NB, LTAGESï '■' ? ] 
ïBin ECZ? 4) s FOR 1 = 1 


46î FOR 11=1 TO ZsPAUSb • 
ETAGE! v ? N 

4 7 ï L = E PI ? l ) ? K. = c. (. pi ? 2 } ? J = 

E(N ? 3) ? H=E ( fl ? 4 ) 

48! INPüT V EC-CC-2C: v ? A$ 
! GOSUB LEFT$ < A$? 1 ) 
58 s P$= v ï IHPUT ''CRS-CRP 
-BR** v JP$ 

51 ! IF P $ < b U S U B P$ 

5 2 » E f'I ? 1 .-' = L ? E N ? 2 P = K ? E ( 

Î ï !?3)=JjE(N?4)=H! NEXT 
m 

54: Z v INPÜT v ETAGE NO! 


56: INPÜT M R SOURCE! v ? Q ? 

R UHAKüE ! ? i4 
57: US ING •**.«*#* *:X»1+ 
H*I4 ! Z = L + H *i4 
58: Rï = <L+F*i4)/X: PRINT 


ÜU i = 1 Nf* i Pi i ' * bU ! U i 

60: R0=<L+8)/<F+H*Q) ! 

PRINT v R Qu"= ! '‘ ? RO 
61 : AV‘=-J*l4/Z: PRINT ,} i 


180: INPÜT v ?Ri= v iU> 

j V ? -l K 3= •' ? vin y p 4 — 


181 : RETURN 




L'opération consiste à se procu- 
rer auprès du club un module 8K 
CE 155 afin de rajouter 8K RAM 
au CE 155 déjà connecté à votre 
PC 1500. 

Il faut savoir que votre PC 1500 en gardera quel- 
ques séquelles. Le travail se fait sous une loupe 
Toute votre attention est requise. Attention aussi 
à éviter toute création d'électricité statique. 

1 . Après avoir testé le module CE 1 55 récem- 
ment acheté, mettre la mousse conductrice 
protectrice sur le connecteur et ouvrir le module 
en écartant les deux coquilles plastiques : un 
circuit imprimé multitouches avec des compo- 
sants de surface de part et d'autre apparaît. 

2. Au stylo à souder relié à la terre, avec de 
la tresse à dessouder, ôter la soudure de cha- 
cune des pattes des quatres « chips » 61 16 
(avec un 28 W ne pas chauffer plus de 1 5 
secondes, attendre 30 secondes entre deux 
pattes). 

Puis au bistouri ou avec une lame très fine, sou- 
lever les pattes une à une. Poser les quatre 
mémoires 61 1 6 sur de la mousse conductrice. 
Les mémoires sont prêtes à être réutilisées. 
La moitié du travail est fait ! 

3. Cette étape consiste à trépaner le fond plas- 
tique du logement des modules (RAM ou ROM). 
Cela est absolument nécessaire car le module 
modifié prendra exactement la place d'un 
module normal y compris son boitier protec- 
teur et le déjà dit fond plastique. Ne vous 
inquiétez pas, la trappe de protection de la cal- 
culatrice se refermera normalement. 

La figure suivante montre où effectuer la 
découpe : 



, Tracé de la découpe 

fig.l 


4. Ouvrir le deuxième module CE 1 55 et pla- 
cer les RAM récupérées à cheval sur celles déjà 
en place, pin 1 sur pin 1 (voir fig. 3). 

Touts les pattes ont donc été coudées vers le 
bas sauf une : la patte 1 8 qui est le chip select 
est laissée horizontale. Les soudures sont à 
exécuter rapidement et méticuleusement (à la 



5. Le choix du câblage des chip select dépend 
du mapping mémoire que l'on désire faire : 

* 5A.- Si vous n'utilisez pas et n'avez pas l'in- 
tention d'utiliser l'extension RS 232 CE 1 58, 
vous pouvez placer la RAM supplémentaire de 
manière simple : 

De & 1800 à & 2000 (Y6) 
de & 2000 à & 2000 (Y5) 
de & 2800 à & 3000 (Y4) 
et de & 3000 à & 38000 (Y3) 

Mais attention, le décodeur TC 40HI38 est 
câblé de manière étrange et inattendue sur les 
fils d'adresse Ail, Al 2 et Al 3 de telle sorte 
que vous devez câbler (avec du fil à wrapper 
par exemple) chacune des pattes de chip-select 
précédemment mentionnées aux pattes 9, 10 
puis 12 et 13 dudit décodeur. 

*5B- SI vous utilisez l'extention RS 232, à l'ini- 
tialisation il se passe des choses bizarres qui 
aboutissent à une mauvaise initialisation des 
pointeurs & 7863, 64 ainsi que quelques 
autres compères : & 6865... 

Je n'ai pas trouvé d'autre solution que de 
« mapper » le module RAM ainsi modifié de 
manière à simuler un CE 161 : 

Dans ce cas, il faut tout d'abord enlever les 3 
Ram d'origine des adresses : 

& 4800 à & 5000 (SI) 

& 5000 à & 5800 (S2) 

& 5800 à & 6000 (S3) pour les placer de & 0 


à & 1800. Pour cela, le bistouri est encore 
nécessaire ainsi que beaucoup de maîtrise I 
Fixez le circuit imprimé du module dans un petit 
étau de table, côté condensateur dessus et 
coupez les trois pistes correspondant à SI , S2 
et S3 au ras du connecteur doré entre les trous 
métalisés et le connecteur (voir fig. 4), passez 
trois petits fils à wrapper (j'utilise de la gauge 
30) dans les trois trous métalisés sus-dits et 
reliez ces trois fils respectivement aux pattes 
1 1 , 1 4 et 1 5 du décodeur 40H 1 38 
Dans les deux cas, il est conseillé ensuite de 
fixer ces petites fils avec une goutte de vernis 
afin de rendre les soudures insensibles aux 
vibrations. 
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fig. 4 


r trou métallisé 
piste à couper 


En guise de conclusion, je ne vous décrirai pas 
la satisfaction de voir un MEM vous retourner 
18k de mémoire... sans compter que vous 
venez d'acquérir par la même occasion une 
bonne maîtrise en bidouille de composants 


SMD ! 


Féthy SARTHE 


* Et sûr de vous... car en cas de problème, votre service tech- 
nique ne pourra pas réparer la trépanation de votre PC (NDLR). 

LONGUE NDLR 

En tant que vieil habitué des PC 1 500 à la mémoire éléphantes- 
que, il me semble bon de mettre en garde les Sharpentiers Kami- 
kazé qui vont se lancer dans cette entreprise. 

Tout d'abord, sachez que le circuit imprimé du CE 1 55 est très 
fin ainsi que ses pistes, il faudra prendre garde de ne pas les 
détériorer. Dans certains cas, le fait de trépaner le fond du PC 
ne laisse pas suffisamment de place pour refermer la trappe ; 
il vous faudra alors coller de l'adhésif fort sur le fond du PC ; 
tant pis pour l'esthétique. 

• Le décodage par le TV 40H138 suit tout de même une cer- 
taine logique. Les lignes A, B, C sont reliées respectivement à 
Al 2, Al 3 et Al 1 . On obtient un décodage mémoire suivant la 
table publiée page 91 du « Technical manual ». Enfin, tentez 
d'éviter le bistouri car vous pouvez réaliser ce montage sans 
toucher aux pistes du CEI 55 et pourrez, en cas d'échec, recons- 
tituer vos deux CE 1 55. Bonne chance. 

Christophe POULAIN 
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ASTUCES 



ALGORITHME DE RND ET RANDOM 

L'algorithme de RND peut-être décrit par : 
RND O = FRAC ({23*RND)/(1 O^ONT LOG 
(23*RND))|) 

Où RND décrit l'ancienne valeur de RND 0. Si 
on demande RND n, le PC - 1 500 fera simple- 
ment INT (RND 0*n) à l'adresse &F5FB. 

RND est initialisé à l'adresse &E07B à l'allu- 
mage avec la valeur : 

.2256631033 soit ({PI*23)/10)-7 
L'algorithme du RANDOM est sensiblement 
plus compliqué le voici en simplifié, avec beau- 
coup d'approximations : 

RND = RND + (secondes de TIME) 

Puis calcul de RND 0. 

En réalité le calcul est plus souvent compliqué, 
vous pouvez essayez de le comprendre, il se 
trouve à l'adresse &F641. Pour vous aider, 
sachez que la routine &E5B4 stocke dans le 
registre arithmétique Xa l'heure sous forme 
DCB. 

(c) 1985 Marc GIRONDOT 



Test souvent utile de sauver les variables d'un 
programme après son utilisation, et pour être 
sûr de ne pas en oublier, on fera à la fin du 
programme : 

NNNN : PRINTtt i® $(*), #(*) : RETURN 
MMMM : CSAVE M&7899, &789A : CSAVE 
MSTATUS 3, PEEK 47864*256 : RETURN 
On fera : 

GOSUB NNNN pour sauver les variables A - Z 
et A$-Z$ et INPUT # $(*),<§»(*) pour les 
recharger GOSUB MMMM pour sauver les 
variables dimensionnées et CLOAD M : CLOAD 
M pour les recharger. 

(c) 1985 M. Francis CHIGOT 



ASTUCES BASIC 


• Pour respecter un peu l'orthographe, il con- 
vient de mettre un « s » lorsque l'on parle d'un 
objet au pluriel. On fera donc sur PC : 

PRINT Z; «OBJET»; CHR$ (83*(Z1|) ou 
CHR$ (115*(Z1)) pour avoir un « s » minus- 
cule. Si Z = 0 ou 1 , l'expression écrira un code 
0, qui ne sera donc pas représenté ni à l'écran 
ni à l'imprimante. 


• Il arrive assez souvent que l'on ait à calculer 
des pourcentages d'après la formule Nb élé- 
ment/Nb total * 100 qui pose des problèmes 
si le Nb total est égal à 0, celà conduit à une 
ERROR 39, alors que l'on peut préférer voir, 
écrit : 0% 

Pour celà on fera : 

Nb éléments/(Nb total + (Nb total =0)) * 100, 
ce qui donne le résultat escompté. 

• Précision pour le module CE- 161 

Vous pouvez tout à fait retirer votre module 1 6 
Ko en le laissant en RAM et celà sans perdre 
les programmes. Il faut toutefois que la fin du 
programme se situe encore dans le module 
donc que : 

PEEK &7867*256 + PEEK &7868 soit infé- 
rieur à &40CO 

Fgjrg a |ors * 

POKE 0, PEEK &7865, PEEK &7866, PEEK 
&7867, PEEK &7868, PEEK &7869, PEEK 
&786A 

Vous pouvez alors enlever le module, et lors- 
que vous le remettrez, faites : 

POKE &7865, PEEK 0, PEEK 1 , PEEK 2, PEEK 
3, PEEK 4, PEEK 5 c'est tout ! 

De plus, vous pouvez utiliser votre RAM à partir 
de &C5 et ce sans aucun dommage pour les 
programmes. 

(c) 1985 Philippe MATSIS 


L'ENIGME CDV 


Comme M. Malsis, faites nous 
part de vos découvertes inexpli- 
quées. Nous les publierons pour 
essayer d'avoir une réponse de 
votre part. 


C'est en voulant confirmer le tableau des codes 
du microproceseur du n° 1 0 que j'ai découvert 
par hasard une chose assez étrange. 
L'astuce est d'utiliser une interruption décrite 
dans le n° 6 en ne mettant comme routine prin- 
cipale que CDV (FD 8E ou FD 9E). Rien de spé- 
cial ne se produit, sauf si on règle la vitesse 
des interruptions à 4 (1 00 en binaire). Alors il 
se produit une chose assez étrange, l'affichage 
bouge seul ! 

Selon le TRM, CDV est une instruction qui 


remet le diviseur à zéro. Comprenne qui 
pourra ! 

Mais le plus étrange est que les lignes ou les 
indicateurs qui s'éteignent le sont réellement, 
c'est-à-dire que, même en regardant l'affichage 
en lumière rasante, il n'y a aucune polarisation 
de la lumière. A noter que même l'indicateur 
de l'état des piles s'éteint. 

Une dernière découverte, les vitesses d'interrup- 


tion 000 et 001 semblent identiques. 

Qui pourra m'expliquer comment renouveler à 
volonté ce prodige en le contrôlant totalement. 
Merci d'avance. 

(c) 1985 Philippe MATSIS 
Nous attendons avec impatience vos proposi- 
tions que nous transmettrons à M. Matsis et 
que nous publierons certainement. 

LE CLUB 


10 REM CURIOSITE PC- 1500 
20 REM PhlllPPe MATSIS 

30 REM (c) 7.4.85 

31 REM APres avoir fait NEW PEEK 67963*256+200 

32 REM taPez le Programme et faites RUN. 

33 REM Pour voir la curiosité» Placez le curseur en clignotant 

34 REM en faisant AAAAAAAAA Puis <~ 

40 DATA " FDbE58F05À07FD590054FD59 n 
50 DATA " bF54b5 1 4FD 1 E54b5,0AFD 1 E54FD " 

60 DATA "5903FD58b516FDCA84AE79Db04" 

70 DATA " AE79DCb555AE79DAFDAEF0069A " 

80 DATA "FDbEFDE9F00A00FDE9F0Ob02" 

90 DATA " 8bQ858C45AC6FD989E49 11 

100 DATA "FD8E9E4D " 

120 ON ERROR GOTO 200 

130 RESTORE s CLEAR «DIM A* (O >+80 

135 Z=PE*EK &7863+256+&C6 

140 RE AD Af- CO )s FOR J=1T0 LEH A*(0)STEP 2 s A- ASC MID* t A$( 0 >=. J , 1 ) 
145 A=C £-46-7* ( A >57 >-32+ ( A >70 > >+16 

1 50 B=ASC M I D$ ( A$ ( 0 > . J+ 1 » 1 ) ï POKE Z » A+B-48-7+ ( B >57 >-32+ 1 B >70 > 

155 Z-Z+l s NEXT J s GOTO 140 
200 CALL PEEK &7863+256+&C6 


-ÎÎ9\- 


... GESTION 
K PROGRAMMES MULTIPLES 


«î ^ équipé d'une carte 

CE 161 possède une RAM «uti- 
lisateur » qui s'étend de &C5 à 
&5800, soit 22331 octets. 


Il est donc possible d'y loger plu- 
sieurs programmes indépen- 
dants quel'on devra appeler par 


La manière « Notice » est de les entrer à la suite 
les uns des autres par la commande « MERGE », 
à partir d'un magnétophone. 

Toutefois I opération « MERGE » peut être éxé- 
cutée manuellement pour éditer un nouveau pro- 
gramme, tout en consevant les autres program- 
mes dans le PC. 

D autres opérations sont possibles en connais- 
sant bien I action des divers pointeurs de la 
machine. 

ACTION DES POINTEURS 

Dans le PC 1500 le premier octet du pointeur 
contient la partie haute de l'adresse désiqnée 

« D » (&7865Æ7866) 

• contient l'adresse du 1 er octet du premier PRG 
de la Zone « BASIC ». 

Si la machine à été initialisée par la commande 
NEW 0 cette adresse est normalement &C5. Le 

o * f* 6 * t êt - re initialisé P ar une commande NEW 
&**** qui laisse des octets libres (entre &C5 
et &****) pour des instructions LM 

« V » (&7869.&786A) 

• est un pointeur de verrouillage qui désigne le 
premier octet du dernier PRG « Mergé » ou entré 
■ au clavier. 

Manipuler sa position permet d'effectuer des 
actions sur l'un quelconque des PRG 
« F » (&7867A7868) 

• est le pointeur de fin des PRG. 

Il désigne l'adresse du FF qui termine le dernier 
programme de la zone « BASIC » 

« P » (&789E, &789F) 

•désigne l'adresse d'un programme en cours 
d'exécution. 

Si ce programme contient des lignes (REM) dans 
lesquelles sont « plantés » des langages 
machine, les adresses de ces LM peuvent être 
calculées avec : 


256*PEEK &789E + PEEK &789F + décalage 
entre le premier octet du PRG et le premier octet 
du (ou des) LM. 

« T » (S7899, &789A) • donne l'adresse de 
en-tete des variables déclarées (ou tableaux). 
Il peut être utile pour atteindre ces variables qui 
sont décalées de 7 octets. 

En outre l'instruction : 

POKE &7899, &58, &00 
remplace l'instruction CLEAR sans altérer le con- 
tenu des variables fixes. 

manipulation des pointeurs 

La page « CARTE RAM » schématise la position 
des pointeurs dans divers cas de figure des 
programmes. 

Fig. 1 ; - Elle représente la RAM du PC avec les 
frontières des diverses zones de travail. 

Fig. 2 : Cette figure montre la position des poin- 
teurs après une opération « MERGE ». 

• le pointeur « D » est positionné sur le premier 
octet de la zone « Basic » (PI). 

• le pointeur « V » indique le premier octet du 
dernier PRG (P3) 

• le pointeur « F » donne l'adresse du FF de fin 
de P3. 

Dans cette configuration, seul P3 peut être 
modifié. 

Il s'ensuit un décalage du pointeur « F ». 

Us PRG PI et P2 sont verrouillés et ne peuvent 
etre modifiés. 

Fig. 3 : Sur cette figure le pointeur « V » a été 
positionné sur l'adresse du premier octet de P2 
PI et P3 sont verrouillés. 

Des modifications peuvent être apportées à P2 
et l'ensemble de P3 est décalé dans la RAM 
Fig ; 4 : Cette figure montre la préparation d'une 
opération « MERGE » manuelle : 

• un FF est planté à l'adresse donnée par « F » 


• le pointeur « F » est déplacé à cette nouvelle 
adresse 

* le pointeur « V » est également déplacé à 
cette adresse 

Le PC est alors prêt pour l'édition d'un nouveau 
programe dans la zone P4. 

Us programmes PI, P2 et P3 sont verrouillés et 
protégés. 

Le programme LM (&7C01) de la page « MONI- 
TEUR » effectue instantannément l'opération 
« MERGE ». 

Fig. 5 : Sur cette figure, P2 est isolé pour une 
opération CSAVE : 

• Us pointeurs « D » et « V » sont positionnés 
sur le premier octet de P2 

• le pointeur « F » est déplacé sur l'adresse du 
FF qui termine P2. 

Le PC ne connait alors que P2 et les opérations 
LLIST ou CSAVE peuvent être effectuées. 

Il ne faut surtout pas procéder à des modifica- 
tions de P2 car P3 pourrait être détruit. 

A la suite de toutes ces manipulations il convient 
de repositionner les pointeurs dans la confiqu- 
ration de la figure 2. 

MONITEUR 

« MONITEUR » donne un programme « BASIC » 
de 4 lignes et un programme LM de transforma- 
tion déci » hexa de 38 octets. Il permet d'ex- 
plorer la machine (RAM et ROM) et de 
« POKER » éventuellement les octets de RAM 
Il s'appelle par DEF M et : 

• demande l'adresse du début d'exploration 
, a près ENTER, il affiche : l'adresse, la valeur de 
l'octet en décimal, cette valeur en hexa et le 
caractère correspondant au code ASCII. Un « ?» 

demande le plantage éventuel d'une nouvelle 
valeur. 

Si un code est entré, il est « poké » à l'adresse 
affichée et le PC réaffiche la même adresse avec 
le nouveau code (seulement en RAM). 

Si ENTER est effectué sans entrée de code, le 
PC affiche l'octet suivant. 

CATALOGUE fARUN) 

« CATALOGUE » donne un programme qui per- 
met de: 

• afficher successivement les programmes du 
PC, par la touche « ENTER », 

• exécuter le programme affiché, par la touche 
Fl (RESERVE), 

• recopier le programme affiché, à la suite des 
autres, par la touche « + », grâce au LM &7C33. 

• effacer le programme affiché, par la touche 
« - » à l'aide du LM &7C4D. 


P cM + 





Ces deux dernières fonctions permettent de 
nombreuses manipulations dans l'ordre des pro- 
grammes. Particulièrement elle facilitent l'isole- 
ment d'un programme en le transférant à la fin 
de la liste et en manipulant seulement le poin- 


teur « D » (pour LLIST et CSAVE). Il est impor- 
tant de placer ce catalogue au début de la zone 
« BASIC » car l'action d'effacement ( ) ne 

peut être effectuée que sur les programmes qui 
suivent. 


RESIDENT 

Les deux programmes de gestion décrits ci- 
dessus peuvent être groupés en un seul pro- 
gramme résident placé au début de la zone 
« BASIC ». 



















«MONITEUR» PC 15C 


» PC 1500 A 




Ce programme est un aide à 
la programmation en Basic 
puisqu'il vous permet de savoir 
dans quelles lignes se situent 
une suite de lettres. 

Tapez le programme grâce au moniteur SHARP. 
Attention, il n'est pas relogeable. Pour l'utili- 
ser, mettre dans une variable la séquence à 
rechercher, par exemple : 

A$ = « GOSUB 650» 


Faites alors : 

CALL &4F00 ,A$ 

et le programme listera toutes les lignes ayant 
cette séquence. Il faut obligatoirement que la 
CE - 1 50 soit branchée. Ce programme est tiré 
d'une revue Japonaise. 




4F00 s 58 81 8E 02 58 8E ED AO 2b 
4F08S00 3F 89 F3 FD 88 2A 62 23 
4F10S5A 00 45 8b 03 50 88 06 6A 
4F 1 8 s 1 4 FD C8 FD 58 b5 3E FD 85 
4F20SCA 94 OE CC 65 b5 FF 07 C7 
4F28 s 8b DI 58 7b 5A 10 6A 4F C9 
4F30 s b5 OO 51 88 03 b5 10 AE 83 
4F38S78 94 58 7A 5A 04 b5 b2 2A 
4F40S51 F5 F5 FD 88 bE D9 CF b5 
4F48!b5 3A AE 7b 15 FD OA 44 OF 
4F50 s 58 7b 5A 1E 5E 50 83 1E 39 
4F58S45 b 7 EO 81 12 28 45 2A AD 
4F60SFD 88 CD IC 02 FD OA 8b bl 
4F68S04 b5 20 8E 02 b5 7E 51 A4 
4F70sb 7 OD 99 20 5A OO FD 8A 1D 
4F78SFD 2A FD A8 FD C8 FD 88 DD 
4F80SFD 98 FD 28 FD C8 CD 24 3F 
4F88SE6 FD 8A 48 7b 4A 1E CD 3C 
4F90 s 24 b5 04 bE DO F9 8b 40 OE 
4F98S58 7b 5A 16 15 8b 03 b5 82 
4FA0 s 7E 1E 5A ÎO E9 79 EA OO 41 
4FA8sb5 Ol AE 79 F4 6A 23 55 AA 
4FbO s 9b 03 b7 OD 8b 18 6E OO 72 
4Fb8s 89 02 b5 7E 48 7A 4A 20 Fl 
4FC0S0E FD 98 FD A8 bE A7 81 3D 
4FC8SFD 2A FD IA 88 1F 48 7A bE 
4FD084A 20 bE A9 Fl bE A7 69 AF 
4FD8S48 7b 4A 17 58 7b 5A 16 8E 
4FE0S6A 48 F5 88 03 bE E4 2C 2F 
4FE8 s FD IA FD OA b7 20 8b Ob C2 
4FF0SA5 7b 1E 9b DO 14 9b 82 19 
4FF8S56 9E A7 FD 8A FD OA 9A OA 
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THEME ASTRAL 


Si vous possédez un PC 1 500 muni de son CE 1 50 f 
il vous suffira d'entrer ce programme puis d'in- 
troduire la date sous la forme JJMM.AAAA, la 
latitude et la longitude du lieu considéré (en 
degrés, minutes, secondes) et enfin l'heure en 
temps universel. 


Le programme calcule les positions des 1 2 maisons astrologiques dans 
le ciel et place les planètes, le soleil et la lune dans ce même ciel. 
Celui-ci est dessiné, les maisons placées, ainsi que les zones des dou- 
zes signes du zodiaque et les planètes. 

Ce programme permet de calculer la configuration astrale au moment 
de votre naissance par exemple. 

Pour interpréter l'influence de telle ou telle planète dans telle ou telle 
maison il vous faudra consulter un livre d'astrologie. 

Remarque : chaque planète est représentée par un numéro de 0 à 9 et 
placée sur le disque du ciel en fonction de sa longitude. 

Philippe PAILLOU 


* us ING SCSIZE 2SC0L0R 3: LFR INT 


THEME AST 


1 REM Theme Astral 

2 REM PhlllPPe PAILLOU 

3 REM 11 10 2 1985 

9 CLEAR : DEGREE : TEXT 

RAL " s LF 1 

10 REM Introduction des données 

on INPUT " TITRE = "STSIÛÎïUSING "#«*#«. «a##- 

20 I NPUT DhTE C ,i ,i mm . o.ao.a î = " 5 B: J= I MT ( B, 1 OO ) , M= I HT ( D-.J+ 1 00 1 
30 Y=( D— IMT B j+10'M: IF M<=2LET Y=Y-1 , M=M+ 1 ”■ 

t365 - 25 * V >* IMT (30.'6001*(M41I)-fl + IHT (A. 4 ) + 


45 I NPUT "LONGITUDE ( dms J = " * G: G=DEG G: I NPUT "LATITUDE fdmO = 
L=DEG L 

50 INPIJT "HEURE (hh.mmï = "üH:H=DEG H 

51 REM ImPresslon des données 


52 CSIZE 1 ! CDLOR O: LPRIMT "TITRE 

53 COLOR 2: LPRIMT " DATE 
! "5G1 

54 L1=DMS L: LPRIMT " LATITUDE 

I NT " HEURE ( tu ) : " 5 H 1 : US I MG 

■55 REM co. I eu I s des O des ma Isons 
du solel I 


■‘5T$( 0 in LPRIMT 

" “ D s G 1 =DMS G î LPRIMT " LONGITUDE 
î " ; L 1 : US I MG "#«:#.»»": H 1 =DMS H : LPR 
t des longitudes des Planètes et 


56 GRAPH sGLCURSDR ( 108.- -150 ): SDRGN 

58 T=E+H2876600:C=. 27692+100. 0021+T, C=( C--INT C )*36Û-G+15. 041+H 

59 IF T >OAND T< 1 LET AX-1 

60 IF CCOLET C=C+360 

62 IF O360LET C=C-360!GDT0 62 
66 GOTO 600 


299 REM Paramétrés de I a I une 

300 A=4S1267. 9*T-89. 6, M=35999*T-1 . 5, B=477198. 8*T-63. 9, U=2*M 
3U5 D— 445267 . 1 *T-9 . 3 , I = 1 1 . 25+483202*T , J=2+D . K=2* I , H=2+B , 0=.T-E 

GOSUE B+1 ’ 3 * SIN U+^fSIN J+.2*SIN N-.2+SIN M-. 1+SIN K.R-A+P» 

K=w! E=rTreTURM W I + ’ 3 * SIN ’ ' :B+I ,+ ’ 3 * SIM (B-I Î+.2H.SIN ( J-I )+. 1*SIN (D+I), 

'Ï--COS C, D=< -SI H c* . 92+ . 4.-T AM ( 90+L > ) : GOSUE 650 : AS=A , Y=S I H C - D=C 
OS C*. 92: GOSUE 65Q:MC=A 

602 US ING "*###. #»:UU=360- AS SPRINT "ASCENDANT = "?UU 
t>03 REM trace des limites des maisons 
605 COLOR l: CSIZE 1 

607 IF UU<=180LET K1=95:K2=108 

608 IF UU > 1 80LET K1 = 1G8: K 2=95 

(uuisoVuo ( 10S * CDS tuu ~ 90 108 * s ™ ( uu — 90 :< j- ( ioe*cos ( uu +90 î, ios*sin 

614 GL.CURSOR ( K 1 *C0S ( UU-90 5. Kl *S I M ( IJU-90 ï ) : LPR I MT " 1 o s " 

615 GLCURSOR ( K2+CDS ( UU+90 ), K2*S IN ( IJIJ+90 ) ): LPRIMT " 7 ds" 

616 EA=ASH (.4* (S IM AS'COS L )): IF C< 270 AND O90LET SA=90-EA: GDTD 624 

618 SA=90+ABS EA 

624 Z1=ACS (SIM L*. 92-COS L*. 4*8 IN n 
Y=S?M !™- 0itFDR K=12TD 8STEP -1*V-SIM N*COS L.D-COS H: GOSUE 650: S«A, 

îlt S+CDS SA * C0S Zl'GOSUB 650 : N=N+30 : QA=36Û- ( A+AS 3 

627 IF QACOLET QA=QA+360: GOTD 627 

628 IF X-10PRINT US ING "***#. S"; "MILIEU CIEL =”f MC» GDSUB 5000» NEXT X 

634 PR INT US ING 5 "0 MAISON "»Xj” ="5USING "****. «"SQAsUSING 
t>40 IF QA< = 180LET K 1 =98 : K2= 1 08 
642 IF QA>180LET K1=103:K2=98 

( QflîsoV^O 108 * CDS ( QA_90 :t ’ 1 O 8 * S I H ( QA-90 ) l-( 108+C0S ( QA+90 J, 108*8 IN 

646 GLCURSOR ( K 1 +COS ( QA-90 L K 1+SIN ( QA-90 ) 1 : LPRIMT X 

647 GLCURSOR ( K 2 +CDS ( OA+90 K 2 +SIN ( QA +90 n» LPR INT X -6 

648 NEXT X 

649 GOTO 770 

650 M-SQR ( Y+Y+D+D .1 : I F Y < OLET A=-ACS ( D 2 M )+360 : RETURN 
655 A=ACS ( D' M ): RETURH 

660 Z=P: FOR a=OTO 6: Z=P+X*1802PI «s IN Z» NEXT A 
|.62 Y=SIM ( Z-" 2 J+SQR ( ( 1+X )/( 1-X ) >, D=COS ( Z.^2 ): GOSUE 650 
S U-U*( 1-X+COS Z ) : Q=U+2+A-P-S , Y=S I N G+COS B,D=COS G: GOSUE 65O:0=A+ 

667 N=ASM (SIM Q*SIN B) 

Y+dId+(U+S În N H C °-2 S ) D :, * CDS N ' D “ U * CDS W * C0S f 0— SO )+I0: GOSUE 650: X=SQR (Y* 
675 K=ASN (U 2 X+SIN N),E=A+SO:IF E>360LET E-E-360 
650?AA=A !F ~ 360_AS ” E ’ HS=ATN <TAH K ^ SIN F) ' Y=SIN F'D=COS F*CDS HS: GOSUE 

SS ÏSiv- !oiSS;P =SIH AA ' TAH SA " CDS «fi* 00 * tZl + HS)*GOSUB 650.AY-A 
‘ Aï'x-ISOLET AY-HY-180.X-1.HS-180+HS 

-AS+AiGOTn N 71o' D * CDS AA * Ca ® HS+SIN HS ''' TrtN AY : GOSUE 650: IF X-1LET J-360 
695 J=36G— (AS+A ) 

710 IF .J>360LET J=.J-360 
715 IF J<OLET J=.J+360 
717 RETURN 

720 REM Paramétrés du soleil 

7.CDS f““ 3 “ 00 - 8 * T - 80 - 3 >"- 359 W-l-5-K=SlH M»1.4,SP.S D 4K, In.,., 1 + . 016 
726 R=SO: GDSUB 800: SO=R: RETURN 
729 REM Paramétrés de mercure 

: B=??reT.JRh' 2+149474 * T ' P=102. 3+149472. 5+T, S-47. 1 + 1 . 2+T , X=. 2056, U=. 3871 
733 REM Paramétrés de venus 

. B-3?3fl7Ï™i!| 58519 ' 2 * T ’ P * 212- 6358517 - 8 * T ’ s - 75 ‘ 8 *. 9»T, X-. 0068. U-. 72333 
737 REM Paramétrés de mars 

-ir 8 ?RETURN' 7+19141 * 7 * T ' P=31 9- 5 +19 13 9.8+.T,S= 4 8.8+.8+. t ,X=.093,U=1.524:E 

741 REM Paramétrés de JuPlter 

742 S=99. 2+T, X=. 04831 , E=1 . 3, P=225. 25+3024. 7+T 

743 IF AX=1LET U=238. 2+3036. 1*T, U=5. 2028: RETURN 

744 U=238+3036. 3*f=T , U=5. 2026: RETURN 

745 REM Paramétrés de saturne 

746 S=U2.8+.9+T,B=2.5 

RN 747 IF flX " 1LET 2+1223. 94T.P=174. 5412234T . 0543,u=9, 5521 ! RETU 

71® ï,', 0 ? 9 ’ U ’7 ' 5547 ’ P ’ 175 ' 57 1221 ‘ 5 *T- U-266. 6+1223. 5.T. RETURH 
49 REM Paramétrés de uro'nus 
750 8=73 . 5+ . 5*T ,E =.8 

RH 75 ’ IF flx * 1LET U-243. 4+429. 9»T.P-74. 2+42S. 34T.X-. 0473. U»19. 216fl! RETU 

7- pS 4 7'- 2+42 7" W f 72 ;' 6 * 42S - 4 *T’ X =- 04634, U-lfl. 2181 .RETURN 
f -jj REM Paramétrés de nePture 
754 8=130.7+1. 1*T,B=1. 8 

7 ®f ';' =85+219 - 9 * T 7 P=41 „ 3+219+T . X=. 0086.4 U=30. 1129: RETURN 

if: 1 7 P=:37 ‘ 7+2 1 8 • 5 * T ’ X= ■ 009 , U=30 .1096: RETURN 

> KEM Paramétrés de P I uton 

09!oLÏ!2 : r 55+145 ‘ 35 '* T ’ P=229 - 22+145 - 35 * T - x *- 2502 ' u=38 --‘ 3S7 -®-i 7 -i 7 .s-i 

759 RETURN 
770 GOSUE 724 

772 GOSUE 300: GOSUE 680:LU=J 
774 GOSUE 730: GOSUE 660: ME=J 
778 GOSUE 734: GOSUE 660:UE=.J 
782 GDSUB 738: GOSUE 660:MA=J 
786 GOSUE 742: GOSUE 660:.JII=.T 
790 GOSUE 746: GOSUE 660:SA=.T 
794 GOSUE 750: GOSUE 660:IJR=J 
796 GDSUB 754 : GOSUE 660: NE=,T 

798 GOSUE 758: GOSUE 660: PL=J: GOTO 1005 

799 REM angles entre O et 360 degres 

800 R=( R.- 360- INT ( R^360 ) )*360: RETURN 
1000 REM trace du ciel de 0 a 360 dedres 
1005 CLS : US ING : FOR I=OTQ 360STEP s‘ 

1010 X=93*CDS I : Y=93+SIN I 

1020 IF I=OGLCURSOR (X,Yi 
1030 LINE -(X, Y ),0,0 
1040 NEXT I 

1090 FDR I=OTO 360STEP 5 

1092 X=70+C0S I:Y=70+SIN I 

1093 IF I-OGLCURSQR (X,Y) 

1094 L.IHE -(X, Y .1,0,0 

1095 NEXT I 

1100 FOR I—9ÛT0 240STEP 30 
1110 X 1 =93*008 I:Y1=93*SIN I 
1120 L I NE ( X 1 7 Y 1 1- ( 70+C0S 1 , 70+S I N I ï , n , n 

1125 IF K-90LET Kl=-17:K2=-3 

1126 IF I >90LET Kl=-1 1 : K2=-3 

1127 IF I=-90LET K1=-7:K2=3 

1128 IF I=90LET Kl=-15:K2=-8 

1131 FD^I-OT^SSOSTEP^O * 008 I+K1,87 * SIM I+ K2 .1: LPRINT 1+90: NEXT I 

1132 LINE (70+CDS 1,70+SIN I)-(65+C0S I,65*SIN II» O, O: NEXT I 

1134 REM Positionnement des signes du zodloAue 

1135 FOR I=-90TD 240STEP 30 

1136 X3=78*C0S ( 1 + 15 ): Y3=78+SIH fI + 15 ) 

1137 IF T<=90LET Kl=-5:K2=-3 


1138 

1 139 

1 140 
1 150 

» " UER ' 
1 160 
1170 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1.270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 


IF I>90LET Kl=— 10îK2=— 3 

NEXT^ I ^ 1 ,jLCURSDR '• ■ X ' 3+K 1 ' V3+K2 J : REAB At- 1 LPR I NT A$ 

,,D "Pai " EEL " ' ,,TAÜ " ’ " GEM "' "CAN". "LEO", "U IR", "BAL", "SCO" 

REM Positionnement des P I ,-,n=tes 
CDLOR 3 

KK=û: XX=SO: GOSUE 7000 
K K =3 ! XX=LU : GOSUB 7000 
KK= 1 s XX=MEs GOSUB 7000 
KK==2 s XX=UE ! GDSUB 7000 
KK=4s XX=MAï GOSUB 7000 
K K =5 î XX— JU î GOSUB 7000 
KK=6 s XX=S A : GOSUB 7000 
KK=7 * XX=UR s GOSUB 7000 
K K =8 : XX=ME s GDSUB 7000 
KK=8 : XX *= PL s GDSUB 7000 

GLCURSDR ï 1 08 , - 1 60 J s TE.XT : CS I ZE 1 s US ING "ttnttn ntt " 

LPR I HT " 0 : Longitude SOLEIL =" îS 0 
LPR INT " 1 : Longitude MERCURE = " 5 ME 

LPR INT " 2 : Longitude UENUS 
LPR INT " 3 ! Longitude LUNE 

LPR INT " 4 ! Longitude MARS 

LPR INT " 5 : Longitude JUPITER 

LPR INT " 6 s Longitude SATURNE 

LPR INT " 7 s Longitude URANU 8 

LPR INT " 8 ! Longitude NEPTUNE 


9 s Longitude PLUTON =";PL 


"S AG", "CAP" 


«"5 LU 
"SMA 
" S JU 
" 5 SA 
— " S UR 
" î NE 


1400 LPR INT 

1410 END.. . 

Æ REM "° U ’ ^«Honn^.nt de, , ur araP 

5000 IF MC<=1 80LET Kl =95: K2=108 
5010 IF MO180LET K2=95: Kl=108 

■ kSoV® tl08 * CDS <MC-90>>-<108«DS <«C-9Cn.i08.SIH 

5030 GLCURSDR <K1*C0S ( MC-90 3, K1*SIN ( MC-^m 1 s ! PR T ht » 1 „ 

5050 RETURn° R ‘ K2 * C0S fMC+ 90),K2-4-SIN ( MC+90 j ): LPR I NT "4f c" 

7000 IF XX<=18ÜLET K 1=35 

7010 IF XX > 1 80LET K 1=40 

7030 X 1 =K 1 *COS (XX-90)!V1=K1-+.SIN f XX-90 ') 

8™^!? 0»‘!S!; 5WCœ '**-»>•"<>+=> >*SIN CXX-90))-<70»CDS < XX-9C, , , 70. 

/££ rSÜrh® <*«-<>■«-< "lpmht K K 


ESSAI LECTEUR LONGUE DUREE 
DE L'ERS 1500-16 


Le programmeur d'eprams intel- 
ligent EPF-1500-16 mérite cer- 
tainement son succès. Cette 
interface s'intégrant parfaite- 
ment à l'estéthique du PC- 1 500 
rend des services inestimables. 


Ces composants sont disponibles chez tous les 
revendeurs d'informatique ou de composants 
électroniques à des prix abordables (de 30 F à 
100 F environ selon leur capacité). La gestion 
se fait entièrement en BASIC avec un éventail 
de nouveaux mots clefs utilisables sans driver 
et en abrégé. Contrairement à la lecture (LOAD) 
de l'eprom qui demande un maximum de 2 
secondes pour 1 6 Ko, la sauvegarde se doit de 
respecter le temps de programmation qui est de 
50 ms par octet ce qui nous donne une vitesse 
de sauvegarde 8 x 0.05s =160 bauds, cette 
vitesse est comparable à celle du CSAVE. 

Il est plus que conseillé d'utiliser des eproms 
27128 (16 Ko) au rapport capacité/prix très inté- 
ressant, mais dans ce cas n'oubliez pas de spé- 
cifier le type d'eprom utilisé à l'EPF 1500 par 
la fonction SETTYPE qui est toujours fixée à 
2716 par défaut à chaque mise sous tension. 
Quelques considérations techniques s'impo- 
sent ; d'abord les petits malins qui font cavaler 
leur PC-1 500 à 4 Mhz n'auront pas à se comu- 
ter en 2,6 Mhz puisque le tempo de program- 


me EPROM et un circuit intégré 
pouvant emmagasiner, dans 
notre cas, de 2 Ko (2716) à 16 

Ko (27 1 28), et les conserver ad 
vitam eternam sans aucun 
besoin d'alimentation. 


mation se fait par une horloge interne à l'EPF. 
Certains érudits en matière d'eproms se deman- 
dent certainement avec quoi on alimente cette 
interface, rassurez vous une simple alimentation 
9V/500 mA convient parfaitement, (celle du CE 
158 par exemple). L'EPF 1500-16 intègre un 
générateur haute-tension (inoffensif...) débitant 
les 21V et 25V nécessaires. 

L'EPROM ne fait pas partie de la mémoire cen- 
trale (ceci évite toute gène lors du développe- 
ment de logiciels), mais utilise des portes d'en- 
trée sortie qui mobilisent en tout 8 octets en 
seconde page ; d'où la transparence totale de 
l'eprom que ce soit une 2716 ou une 27128, 
sans contrainte aucune pour l'utilisateur dé 
CE-161. Cela n'empêche pas la possibilité de 
lecture écriture directe dans l'eprom par des ins- 
tructions similaires à PEEK ('') et POKE (") qui 
sont GET et PUT. Une LED (petite lampe) indi- 
que lorsqu'il y a accès à l'eprom en écriture ou 
en lecture ; cela permet de se repérer lors de 
chaque manipulation. Il y a de plus 12 messa- 
ges d'erreurs pour faciliter les débuggages (qui 



sont très rares grâce au manuel d'utilisation bien 
fourni en explications). 

Les noms de fichier sont malheureusement limi- 
tés à 7 caractères ce qui ne dépaysera certai- 
nement pas les anciens PCdouzeonzistes, par 
contre vous aurez la possibilité de LOADER (ou 
MERGER) un programme basic en effaçant ou 
non les variables. La fonction FREE est une 
pseudo-variable qui prend pour valeur le nom- 
bre d'octets libres d'une eprom formatée, en fait 
FREE recherche le premier octet différent de &FF 
à partir de la fin de l'eprom. Je vous conseille 
alors de faire terminer vos programmes L.M. par 
un octet indicatif différent de &FF afin d'éviter 
de fausser la valeur de FREE. 

D'autre part, il y a des fonctions très originales 
qui méritent une certaine attention. La fonction 
EDITH est très pratique et utile pour les program- 
meurs en L.M., il s'agit d'un dump hexadécimal 
qui travaille sur la première et la deuxième page 
du PC-1 500 (pour ceux qui ont de la ram en 
deuxième page). 

La fonction MOVE transfère un bloc mémoire 
vers un autre emplacement. La fonction COPY 
permet une copie pure et simple de l'intégralité 
d'une eprom master faisant ainsi du EPF 1 500 
un copieur éditeur d'eproms au rapport qua- 
lité/prix imbattable et aux performances dignes 
d'un matériel professionnel, bien que l'on ne 
copie qu'une seule eprom à la fois. 

Finalement l'EPF 1 500-16 est vraiment l'infer- 
face providentielle du PC-1 500 supprimant les 
délais trop longs des chargements cassettes et 
d'une fiabilité à toute épreuve (fini le temps des 
ERROR 44) ; de plus on gagne en encombre- 
ment car il n'y a plus de cables disgracieux, l'EPF 
se branche directement sur le connecteur 60 
broches du PC. 

Enfin une dizaine d'eproms 27128 représente 
1 60 Ko formatés et sont évidemment plus pra- 
tiques que des cassettes. Bref le PC- 1500 a 
encore marqué un point grâce à cette interface 
révolutionnaire. 

Christophe POULAIN 


TOUT SUR L{$ JOURS 


Quel jour est-on SVP * M 

Très simple, on regarde sur sa étiW y * 4 ? E urs# J e combie n 
moi** et û ».Æ é K "? *» "'«»■« 

ment le nombre s'offrir à nous. î3^riS" w ""^ ,##,s “ 


Il est très difficile de manipuler les dates sur 
un ordinateur, en effet rien il n'est de moins 
(rregulier qu'un calendrier. 

ANNEE 

L annee comporte 365 jours et tous les 4 ans 
366 jours. On reconnaît ces années bissexti- 
les a ce qu'elles sont divisibles par 4 sans reste 


Soit A une année : Nb jours dans cette 
année = 365 + (A/4 = INT (A/4)) 

MOIS 

Pour ie nombre de jours dans le mois (ceux-ci 
e tan de 12 quelques soient les condition, 
ouf !), c est aussi folklorique : 


nous avons fait un certain nombre d'approxi- 

Fn effet Î °' 9neeS ° U Si 00 eSt PUtiSte. 

En effet, les années séculaires* ne sont pas bis- 
sextiles, sauf tous les 400 ans où là elles le 

2100 2 a 2nn Xe t TÆn 2000 S6ra tile ^ais 

2 I 0 O te Sa " e 16 Se '° m PaS ' 3 ' 0,s ^ 

Et malgré toutes ces corrections, en 10000 

comme en 1582, il faudra supprimer 3 jours 

Ces dernieres données ont été recueillies dans 
sur FRANCE-INTER le 

01/12/85 a 18 heures. 

Vous en conclurez que les programmes propo- 
ses sont fiables du 1/3/1900 au 28/2/2100. 

'Année séculaire : 

Annee qui termine le siècle. Attention le siè- 

dÎSmaT™' 6 '' année SUiVant te 

20 e siècle 1901-2000 


31 


oMen \ II J ? urs . sauf les années bissextiles 
ou il en a 29. Le plus simple pour connaître le 

nombre N de jours d'un mois M d'une année 

est de faire une routine de ce oenre • 

N = VAL MIDI |. 303232332323 . M T)+28 

+ (A/2 = INT (A/4)*M) ° 


Mais nous allons étudier un peu cette réparti- 
tion : H 

fÏÏier imPllflCati ° n ' ° n Prendra 3 ° JOUrs pour 

On a la suite 


5 6 


mois 1 0 o 

^ 30 31 » 3 > » 3? 3? 30 9 

eportons les 3 premiers mois au delà du 1 2 e 
par un test du type de :P=M + 12 *(M< 4 ) on 
aura alors: 

mois 4 5 6 7 « 

i° ur 30 31 30 31 31 

total ™ -- Jl 


9 10 11 


30 61 9Î 122 tH ,»? 3 ? 31 31 30 31 

— 53 183 214 244 275 306 336 367 


10 11 12 

31 30 31 


12 13 14 15 


On remarque que l'on obtient facilement ce 
total par : 

N = INT ((P-3)*30.6) 

On n'a plus qu'à corriger la valeur pour les mois 
supérieurs à 12 : N = I\I-367*(P> 12) + 92 
Puis faire une correction pour février et l'an- 
nee bissextile : 

N=N-(M> 2 ) - (M>2ANDA/4< >INT(A/ 4 )) 

JOURS 

nNT J iï l îi i0 B u .'™ u ; " A “ »»* : 
„L 30 J l "-. 4+ ' 2 *W<5ll|. 


(M<5) + 92-(M>2) 
INT (A/4)))*(M< >1) 


... 367* 
H>2 AND A/4< > 


Donne la somme des jours de tous le mois pré- 
cédents. Il ne reste plus qu'à ajouter J, n° du 
jour pour avoir )e nombre de jours depuis le 
début de I annee. 

Nous avons éludé le problème soulevé en 1 582 
par le pape Grégoire qui a découvert que le 
calendrier avait dix jours de retard sur le soleil 
J y a donc dix jours qui n'ont jamaisexisté.ll faut 
de plus remarquer que ces jours sont différents 
en Italie et en France, car nous avons avancé 
notre calendrier 3 mois après les Italiens. Il y 
a donc 10 jours qui n'ont jamais existé en Ita- 
Je ma ls Qui ont existé en France, et inverse- 



CALCUL D'UNE DATE 

Rappelons tout d'abord les règles • 

Faire une routine en BASIC qui calcule la date 
Z ?? 0 ? 3 " 1 à Une date plus ou m °ins N 

hï iM date A initlale est rentrée dans les fria- 
bles J M et A sous la forme habituelle. 

Ex : J = 14 
M = 7 
A = 1 789 
Les critères sont : 

* nombre d'octets 

* vitesse d'exécution 

* minimum de variables utilisées 

au "pr'^nnn ^ nous avons fait calculer 
8/3/fqfi ^ 14/7/1789 + 70000 W* 

N = 70000 r8t0Ur à 14/7/1789 avec 
L appel se fera toujours avec J M A et N for- 
mate, par un GOSUB, la ligne à appeler étant 
précisée a chaque fois. 

roSneTl * "° US envoyer vos 

Maintenant place aux vainqueurs. 

CALCUL SUR LES DATES 
Nous n'allons pas vous donner l'éternel pro- 
gramme de calcul de nombre de jours entre 
eux dates ou le jour de la semaine, on trouve 
cela partout, mais une formule (magique ?) qui 
vous permettra d'inclure ces routines dans vos 
programmes. 

Soit A l'année, M le mois et J le jour, tout est 
base sur ce sous-programme : 

NNNN : N = INT (365.25*(A-(M<3)))+J + 



INT (30.6*(M + 1 + 12*(M<3))) 

MMMM : RETURN 

Pour connaître le jour de la semaine, on fera : 
GOSUB NNNN: S = N-INT (N/7)*7 
et S=0 si VENDREDI 
S = 1 si SAMEDI 
etc. 

Pour le nombre de jours entre deux dates, on 
fera : 

Dans J M et A la première date 
GOSUB NNNN : P=N 
Dans J M et A la seconde date 


GOSUB NNNN: N -P 

et dans N il y aura le nombre de jour entre ces 
deux dates. 

Philippe MATSIS 


Voici un petit concours, ( 1 er prix, un joli cadeau 
SHARP), il faut faire une routine en BASIC, en 
entrée on a dans : 

J le jour 
M le mois 

A l'année sous forme 1985 


DES RONDS* ** 
RONDEMENT 


Passons à des choses nouvelles, 
les cercles, ellipses et quartiers 
d'ellipses en passant par les 
changements ae repères. 


CERCLES 

Nous avons vu que les coordonnées de cha- 
que point d'un cercle de rayon 1 sont détermi- 
nées en connaissant l'angle qu'il forme avec 
l'horizontale par : 

(X,Y) = (COSce,SIN ) 

Si le rayon du cercle est de 1 0, il suffit de faire 
(X,Y) = (10*C0Sa,10*SINO!) 

Le centre du cercle sera en (0,0) 

Voyons comment le tracer sur un PC-1350 : 

Si nous voulons qu'il soit entièrement visible, 
il faut le placer au centre de l'écran, on fera 
donc une translation de repère. 

Voici l'écran d'un PC-1350 : 

Q 0 X 75 X +75 149 

Y 1 


TRANSLATION DE REPERE 

Il faut donc déplacer le (0,0) pour le mettre au 
centre, en (75, 1 5). Donc pour chaque point P 
de coordonnées (X,Y), on le centrera en pre- 


nant comme nouvelles coordonnées 
(X + 75,Y + 1 5). 

Notre cercle deviendra donc une fois centré : 
(X,YM75 + 10*C0Sa,15 + 10*SINO!) 

10 :CLS :DEGREE 

20 :WAIT 0 

30 :F0R A=0 TO 360 

40 :PSET (75 + 10*COS A,15 + 10*SIN A) 

50 :NEXT A 

60 :GOTO 60 

Vous allez vite vous apercevoir que les 2'40" 
que prennent son exécution sont particulière- 
ment pénibles à supporter. On doit pouvoir faire 
mieux ! 

En faisant une étude un peu plus approfondie 
du cercle tracé, on voit que sur les 361 points 
calculés, seul 70 apparaissent effectivement, 
les 291 restant sont réécris par dessus d'au- 
tres déjà affichés. 

On aurait tendance à faire : 

30 :FOR A=0 TO 360 STEP 360/70 
Trente secondes pour cette version, c'est net- 
tement mieux, même si le cercle paraît un peu 
moins rond. Cette méthode n'est valable que 
parce que le cercle est petit par rapport aux 
points qui le composent. Sur une table traçante 
ou un grand cercle, il faut utiliser une autre 
méthode que nous allons décrire en même 
temps que les ellipses. 

ELLIPSES 

Le principe de l'ellipse est assez simple, il suf- 
fit de tracer un cercle ayant un rayon différent 
sur Ox et Oy. Pour tracer une ellipse de longueur 
(Ox) L et de hauteur (Oy) M, on déterminera 
ses points par l'équation : 

(X,Y) = (COS *L,SIN *M) 

Bien sûr il faudra faire les corrections d'usage 
pour ramener l'ellipse au centre (voir transla- 
tion de repère). 

Sur le programme précédent, on fera : 

25 :L = 75 :M = 15 


% 


et N un nombre de jours, positif ou négatif, à 
la sortie, cette routine devra avoir dans J M et 
A la date correspondant à l'ancienne date + 
N jours. 

Les critères seront : 

* nombre d'octets 

* vitesse d'exécution 

* minimum de variables utilisées 

Les meilleures routines seront publiées dans le 
prochain numéro. A VOS CLAVIERS ! 

(c) 1 985 Philippe MATSIS et Marc GIRONDOT 


30 :FOR A=0 TO 360 

40 :PSET (75+L*COS A,15+M*SIN A) 

50 :NEXT A 

L'ellipse est assez belle, mais a plusieurs 
défauts : 

* lenteur relative :2'40" 

* discontinuité des traits. 

Pour contrer le premier défaut, on va utiliser 
la même astuce que précédemment en choi- 
sissant un STEP de valeur plus ou moins grande 
selon que l'on voudra plus ou moins de finesse, 
et surtout gagner plus ou moins de temps. Un 
STEP entre 5 et 10 semble correct. 

Mais le second défaut s'accentue, il faudrait 
relier chaque point au suivant par une droite. 
Voici comment faire : 

30 :FOR A = 0 TO 360 STEP 10 
35 :l = 75 + L*COS A :J = 15 + M*SIN A 
40 :1F A LINE (X,Y)-(I,J) 

45 :X = I :Y=J 
50 :NEXT A 

L'ellipse magnifique et son exécution en vingt 
secondes vous satisferont certainement. 
Pour résumer, voici la version générale de ces 
programmes : 

10 :DEGREE :WAIT 0 
20 :FOR A = 0 TO 360 STEP 10 
30 :l = OX + L*COS A :J = OY + M*SIN A 
40 :1F A LINE (X,Y)-(U) 

50 :X = I :Y=J 
60 :NEXT A :RETURN 

Cette routine s'utilise comme un sous- 
programme. Les variables à transmettre sont : 
OX : abscisse du centre de l'ellipse 
OY : ordonnée du centre de l'ellipse 
L : longueur de l'ellipse 
M : largeur de l'ellipse 
si L = M, on aura à faire à un cercle : 

GOSUB 10 

Variables modifiées : A I J X Y 


Remarquez la version artistique de ce sous- 
programme : 

40 :LINE (OX,OY)-(l,J) 

La ligne 50 étant alors inutile. 

Récréation : 

5 :CLS :FORB=OTO 10 :OX = RND 149 :OY = RND 15 
7 :L = RND 75 :M = RND 15 :GOSUB 10 :NEXT B :GOTO 5 

Cette dernière méthode sera surtout utilisée si 
la taille de l'ellipse ou du cercle est grande par 
rapport à la taille des points, par exemple sur 
une table traçante. 

ELLIPSES PLEINES 

Mais, me dites-vous avec raison, on ne sait 
faire que des ellipses vides, et si on veut les 
remplir ? Nous ne disposons pas de fonction 
PAINT ! 

De nombreuses méthodes s'offrent à nous. 
Nous allons étudier une des plus, sinon la plus, 
performante. 

Examinons les méthodes : 

* rayon : Elle consiste à tracer les rayons dans 
l'ellipse de façon si rapprochée qu'ils prennent 
toute la surface. Les inconvénients sont nom- 
breux, lenteur et repasse beaucoup de fois sur 
le même point et abime le papier en même 
temps que le stylo si on le fait sur table 
traçante. 

* PAINT : Cette méthode consiste à recréer 
une routine de coloriage. Elle serait idéale sur 
un écran si elle ne s'éloignait pas trop du cadre 
de cet article. Par contre utilise beaucoup de 
mémoire et impossible sur table traçante. 

* Sécantes II : Cette méthode consiste à rem- 
plir le cercle par des traits II horizontaux ou ver- 
ticaux partant d'un côté pour aller à l'autre. Peu 
d'inconvénient, sauf un algorythme pas très 
simple. 

Prenons une ellipse de rayon 10 en longueur 
et M en hauteur. Nous savons qu'elle s'éten- 
dra de - 10 à 10 si l'origine se situe en (0,0). 
Dans un premier temps nous ne travaillerons 
que sur la partie de l'ellipse située au dessus 
de Ox, le dessous est symétrique. 

Dans X, l'abscisse du point P de l'ellipse con- 
sidérée, donc de - 1 0 à 1 0. Il nous faut déter- 
miner Y, son ordonnée. On ramène la valeur 
de X au cas où l'on travaille sur un cercle tri- 
gonométrique : X/10 

1 0 est la longeur donc la valeur maximum que 
peut prendre X. 

On calcule la valeur de l'angle entre OP et Ox : 
cy=ACS (X/10) 

On calcule la valeur correspondant sur Oy : 
SIN ACS (X/10) 

Et on ramène à la hauteur par proportionnalité : 
SIN ACS (X/10)*M 



Bien sûr, si la longueur est L, on fera : 
Y = SIN ACS (X/L)*M 
Voici ce que celà traduit 



De l'autre côté de Ox, on aura -Y 
Soit OX et OY les coordonnées du centre 
10 :WAIT 0 :F0R X = - L TO L 
20 :Y=SIN ACS (X/L)*M 
30 .LINE (OX + X,OY + Y) - (OX + X,OY - Y) 
40 :NEXT X :RETURN 

Ce sous-programme s'emploie de la même 
manière que le précédent grâce à GOSUB 10. 
Variables modifiées :X Y 

TRIANGLE RECTANGLE 

Peut-être avez-vous remarqué que, pour l'ins- 
tant nous n'avons parlé que d'ellipses alignées 
sur Ox et Oy. Mais si nous voulions une ellipse 
penchée ? Il faudra alors faire une rotation de 
repère. 

Rappelons tout d'abord les formules de base 
que l'on doit au moins pouvoir avoir sous les 
yeux, sinon savoir, lorsque l'on fait du 
graphisme. 

H = Hypothénuse 
A = Adjacent 
O = Opposé 
SIN« = 0 

¥ 

COSQ!= A O 

¥ 

TANQ!= O 

¥ 

Remarquez que puisque la somme des angles 
d'un triangle est toujours de 1 80, l'angle droit 
valant 90, 
om-G= 90 
B = 90 -a 

La dernière formule est facultative car elle se 
retrouve à partir des précédentes : 

TAN = SIN = 0/H = 0 * H = Q 
COS A/H HAA 
Et enfin H = SÛR (0 2 +A 2 ) 

Anecdote : 

TAN CX = 0/ A a =ATN (O/A) 

* or SiiVCX=0'H - SIN ATN (0/A) = 0/H - H = 0/SIN ATN (O/A) 

* or C05CX A/H -COS ATN (O/A) = A/H - H = A/COS ATN (O/A) 

Ces trois expressions de H, à première vue dif- 




férentes, donnent heureusement le même 
résultat. 

On s'en sert pour connaître la longueur de la 
diagonale d'un rectangle. 

ROTATION DE REPERES 

Revenons, après cet intermède mathématique, 
à notre rotation de repère. 

Soit un point P (X,Y) 



Puisqu'on ne fait subir au repère qu'une rota- 
tion, cette distance ne changera pas. Il nous 
faut connaître aussi l'angle entre OP et Ox. Il 
nous faut connaître aussi l'angle entre OP et 
Ox. Donc si ce point appartenait à un cercle, 
celui-ci serait de rayon OP. On ramène donc 
X et Y aux valeurs proportionnelles correspon- 
dant à celles d'un cercle trigonométrique : 
X'=X/OP 
Y' = Y/OP 

En faisant ACS X', nous avons alors la valeur 
absolue de l'angle entre OP et Ox. Pourquoi la 
valeur absolue ? 



La valeur de X' pour les points P et P' est la 
même, donc ACS X' ne donnera qu'une même 
valeur d'angle correspondant à + .11 faudra 
donc tenir compte du signe de Y', en faisant 
attention au cas où Y' =0, dans ce cas, X' vaut 
- 1 ou 1, valant respectivement 180 ou 0 et 
il n'y a pas à faire de correction : 

(SGN Y + (Y = 0))* ACS X' 

-1 + 0 = -1*ACS X' si Y<0 
0 + 1 = 1*ACS X' si Y = 0 
0 + 1 =1*ACS X' si Y>0 
On transforme donc les coordonnées cartésien- 
nes de P (X,Y) en coordonnées polaires (H, ) 
H = SQR (X 2 =Y 2 ) 

= (SGN Y + (Y=0))*ACS (X/H) 

Remarquez que l'on ne se sert pas de la cor- 
rection Y/H pour le calcul du signe, car H est 
toujours positif (la racine carrée négative d'un 



réel n'ayant pas encore vu le jour). On fait alors 
subir au repère une rotation de B degrés. Le 
point P subira aussi cette rotation. Sa distance 
H avec le centre sera inchangée et son angle 
avec Ox' ne variera pas non plus. Donc P aura 
tourné de B degrés par rapport à Ox, son angle 
par rapport à ce dernier sera donc B+a. 

On trouve alors les nouvelles coordonnées de 
P: 

(X,Y) = (COS (B+a)*H,SIN (B+a)‘H). 

ELLIPSES BASCULEES 

Voici la version du programme de tracé en point 
avec rotation : 

10 :WAIT 0 :DEGREE 

20 :FOR A=0 TO 360 STEP 10 

30 :X = L*C0S A :Y = M*S!N A 

40 :H = SQR (X*X + Y*Y) :C = (SGN 

Y + (Y=0))*ACS (X/Hl + B 

50 :PSET (OX+COS C*H,0Y+SIN C*H) 

60 :NEXT A :RETURN 

OX et OY coordonnées du centre (translation 
de repère) 

B angle de rotation (rotation de repère) 

L longueur de l'ellipse 


M hauteur de l'ellipse 
GOSUB 10 

Variables modifiées : A C H X Y 

QUARTIERS D'ELLIPSE 

La construction de quartier d'ellipse devrait 
vous sembler un jeu d'enfant après ce que vous 
venez de subir. 

Dans V, le % inférieur et dans W le % 
supérieur. 

Exemple : quartier d'une ellipse compris entre 
25% et 60% 



Il faut tout d'abord déterminer les angles cor- 
respondants en degrés : 

360*V/100=3.6*V pour la limite inférieure 


360*W/100=3.6* W pour la limite supérieure 
Dans OX et OY comme d'habitude les coordon- 
nées de la pointe du quartier, dans L la longueur 
et dans M la hauteur 
10 :WAIT 0 :CLS :DEGREE 
20 :FOR A = 3.6*V TO 3.6*W STEP 5 
30 :l=OX + L*COS A :J=OY + M*SIN A 
35 :1F A - 3.6*V LINE (OX,OY) - (l,J): GOTO 50 
40 :LINE (X,Y)-(I,J) 

50 :X=I :Y=J 
60 :NEXT A 

70 UNE (OX,OY)-(l,J,) 

80 :GOTO 80 
Par exemple : 

V = 25, W = 60, OX = 75, OY = 1 2,L = 60,M^= 1 8 
RUN 

Tous ces programmes ont été écris sur 
PC-1350. Pour le PC-1500, il faudra rajouter 
au début un GRAPH et changer les valeurs de 
OX, OY, L et M pour avoir des dessins corrects. 
Nous arrêtons là pour cette bis, mais attendez- 
vous à de nouvelles aventures pour bientôt. 

Marc GIRONDOT 




1401/02, 1260/61 


les tests multiples effectués par le pgm LM. Le 
code machine est placé dans le buffer de bou- 
cles FOR-NEXT, ce qui le met à l'abri de toute 
destruction, tant que l'on imbrique pas plus de 
trois boucles à la fois. 

Si vous avez du mal à comprendre, essayez ce 
pgm et vous constaterez que l'essentiel est 
qu'il fonctionne bien. 

Jean-François VIGNAUD 


Il vous est sûrement arrivé de dévastateur, CALL &6E40 pour 

regretter un NEW malheureux, un 1350 (&4740 pour un 

vous faisantnerdre à jamais des 1401/02 ou &6740 pour un 

heures d'efforts. Ce petit pgm 1 260/6 1 ) permet de récupérer 

en langage machine relogeable, totalement un pgm basic 

exécute un anti-new. Après détruit. Par contre, les variables 

donc un NEW ou un AU RESET ne peuvent pas être sauvées. 

Le principe est simple, puisqu'il s'agit d'enle- difficultés à surmonter. Une ligne basic est de 

ver le &FF de fin de pgm. Les adresses de ces la forme : 

&FF sont d'ailleurs conservées dans les poin- N° ligne : 2 octets, Len ligne : 1 octet, Pgm 

teurs (cf. tableau du numéro 14, p. 49) de ligne : n octets, &0D etc. On ne peut recher- 

START BASIC et de END BASIC. On remplace cher simplement la valeur &FF, car il faut évi- 
donc le &FF de fin de pgm par 0 (la 1 re ligne ter de confondre le &FF de fin de pgm avec un 

sera donc comprise entre 1 et 255). Puis, on N° de ligne du type &FF, où 0< =x<&FF. Par 

recherche l'ancien &FF de fin de pgm pour réi- exemple 255, 1 535, 281 5. De plus, le numéro 

nitialiser END BASIC. Cette recherche, de par de ligne &DFF (3583) introduit une nouvelle dif- 

la structure d'une ligne basic présente quelques ficulté à cause du &0D (CR) de fn de ligne. D'où 


UüilP RENE* PC 1358 

6E48 F47 1230452246 7FF ï 68 
6E48 2 9 0 4 2 5 6 ? 0 B 3 8 8424» 26 
6E58 299Ü2567QD242439: 4F 
6h5b 1 3 1 06h $38 4 1 £3788 ' SB 

BUMP RENEI4 PC 1 260/6 î 
6740 F 3 B D 2384 5224 67FF 
6748 2994 2567 9B38 9424 
6758 298C 2567 8D24 2439 
6758 1310 66-E.3 84lB 3788 

DU fl P RENEï4 °C 1481/92 

474 8 F643 2384 5224 67FF 
4748 2984 2567 8338 9424 
4758 290.C 2567 8324 2439 
4758 1318 4F E3 841 B 3 7 y 8 





w 


CONVERSIONS 
DECIMALES BINAIRES 
HEXA DECIMALES 


Ce pgm écrit pour lu plus grande 
part en Im, permetd'afficher sur 
votre PC la conversion d'un nom- 
bre de 0 à 255 de la base 10 


La partie langage machine peut bien sûr être 
inclue dans un programme utilitaire ou ludique, 
aussi bien basic que Im. Les possesseurs de PC 
1 260 devront reloger le pgm (version 1 261 ) en 
&6100, par exemple. Les adresses &5012 et 
&501 6 (&C1 12 et &C1 16 pour la version 1251) 
sont les seules à comporter un CALL devant être 
relogé. Exécutez un RUN pour la première utili- 
sation, puis par la suite DEF X permet l'exploi- 
tation du programme. 


10! y <C> FISCHEL* 

2 y » H ü K il £ C 1 y y ? £ 1 2 ? £ 9 6 ? £ 
02 j £B 7? £BB? £50? £82? £ 
C 5 ? £BB ? £82 ? £F5 ? £26 ? £ 
16? £C6? £A8? £57 
3y ! PQKE £C 1 1 0 ? £34 ? £58 ? £ 
7 o ? £ C 1 ? £ 1 E ? £ 5 B ? £ 7 8 ? £ 
C 1 ? £ 1 E ? £ 0 2 ? £ 0 8 ? £ 2 6 ? £ 
2C? £12? £64? £8F 
40: PQKE £C120? £34? £75? £ 
8 A ? £3A ? £86 ? £5B ? £74 ? £ 

47 ? £2U ? £84 ? £ 5 B ? £74 ? £ 

48 ? £26 ? £37 ? £88 

58 : PuKE £ U 1 3ü ? £ ü b ? £ 1 0 ? £ 
U 5 ? £ ü b ? £ 0 2 ? £ 4 y ? £ 1 h ? £ 
1 2 ? £ 8 6 ? £ y 2 ? £ D y ? £ D B ? £ 
50?£8.2?£C5?£DB 

6 y : P O K t £ C 1 4 y ? £ 1 y ? £ ü 6 ? £ 

A8 ? £57 ? £B2 ? £34 ? £2A ? £ 
y 5 ? £ y 2 ? £41 ? £ 2 U ? £y 3 ? £ 
82? £48? £27 ? £5B 

7 8 : P 0 K E £ C 1 5 8 ? £ 6 7 ? £ 8 8 ? £ 


(DEC) vers les bases 1 6 (HEX) et 
2 (BIN). Ces bases étant les plus 
utiles au programmeur avancé. 


Nous remercions notre confrère allemand de la 
revue FISCHEL d'où ces programmes ont été 
extraits. 

J.F.V. 

© 1986 FISCHEL & LE CLUB 
FISCHEL G.M.B.H. 

KAISER-FRIEDRICH-STR. 54A 
1000 BERLIN 12 


1082 M X V CLEAR : DIM Z$<8 
)*8 

110! INPÜT V NBRE BEC >8-2 
55< : y ? X 5 1F H >255 
ÏHEN 118 

120! POKE £C6A8?X: CALL £ 
Cl 88 

125: A$= LEFT$ (Z$(8)?4): 
B$= RIGNÏ$ (Zî<8) ? 4) 
:C$= M BEC y + SÏR$ X 

138: PRINT C$5 y =HEX y ? Y* 

148: P.RINT C$? y =BIN V ?A$? 
y ? B$ 

150! IF X>8 THEN 118 

1 68 : END 


9 8 8 ! ( C ) G . E . S C H U C K A R y 
918; ■£ FISCHEL''' 

1880! y n v PQKE £5880? £12 
? £ y 6 ? £ y 2 ? £ 6 B ? £ B B ? £ 
58 ? £82 ? £66 ? £BB ? £82 
? £26 ? £26 ? £ 1 8 ? £65 ? £ 
B 8 ? £57 

1810! PQKE £5818? £34, £58 
? £78 ? £58 ? £ 1 E ? £5B ? £ 
78 ? £58 ? £ 1 E ? £82 ? £80 
? £ 2 6 ? £ 2 C ? £ 1 2 ? £ 6 4 ? £ 
8F 

1828: POKE £5828? £34? £75 
? £yA ? £3A ? £86 ? £5B ? £ 
74 ? £37 ? £2C ? £84 ? £5B 
? £7 4 ? £ 3 y ? £ 2 6 ? £37 ? £ 
88 

1838; POKE £5838? £87? £18 
? £ 6 6 ? £ 7 8 ? £ 8 2 ? £ 3 8 ? £ 
1 F ? £ 1 2 ? £86 ? £82 ? £88 
? £BB ? £ j y ? £82 ? £66 ? £ 
DB 

1840; POKE £5848? £18? £65 
? £B8 ? £57 ? £B2 ? £34 ? £ 
2A ? & y j ? £82 ? £3 1 ? £2C 
? £83 ? £82 ? £38 ? £27 ? £ 
5 B 

1858; POKE £5858? £67? £88 
? £29 ? £8F ? £78 ? £80 ? £ 
8F ? £78 ? £ 1 1 ? £3E ? £37 

1860: y X y INPUT y NBRE BE 
C >8-2550 W 5X: IF 
X>255 THEN v X y 

1 y 7 y ; P u Kl £ 6 5 B 8 ? X ; C A L L 
£5888; IF X THEN y 


1888: ENB 


tous 


\esK 


MEMOIRE SYSTEME 
ET SOUS PGMS IM 


Vous l'avez constaté, cette bler tous ces renseignements. Je 

rubrique ne figurait pas dans compte donc sur vous tous |>our 

notre N 0 1 6. L'explication est m'aider dans cette entreprise, 

qu'il faut du temps pour rassem- 


Pour rattraper cet « oubli », cette fois-ci nous 
vous offrons donc deux tableaux. De plus, j'ai 
précisé dans un troisème tableau, par rapport 
à la seconde partie de l'initiation au Im ESR-H, 
quels étaient les registres d'opérations (sur 8 
octets) pour chaque PC. Ce sont ces définitions 
et appellations que nous utiliserons à l'avenir. 
Je rappelle à propos des sous-pgms publiés, 
que le registre J est présupposé valoir 1 . Il est 
inutile de l'initialiser à cette valeur, sauf si on 
l'a modifié avant. 

A bientôt.... 

J.F.V. 


DEFINITION 


DATAPTR 


FOR-NEXTPTR Pf 


GOSUBPTR Pf 


InPut Bu f fer- Ptr- 


Key Code DEF 


Key Code Buffer- 


US ING 1 


# 


US ING 2 


GOSUB Stock 


FOR-NEXT Stock 


Str-in9 Buffer- 


I nPut Bu f f e 


RND Buffe 


Answer- Dehnor-y 


PC 1245/51/55 


C6F3 


C6F4 


C6EA 


F83F 


F8BF 


C6D3 


C6D4 


C6D5 

C6F8 o C6FB 


F880 o F8A7 


C710 o C75F 


C760 o C7AF 


C7B0 o C7FF 


F8B0 o F8B7 


PC 1260/61 


66FE) 66FF 


66F3 


66F4 


66 EA 


662D 


662C 


66D3 


66D4 


66F8 o 66FB 


6683 o 6696 


67B0 o 67FF 


28B8 o 28BF 


PC 1401/02 


46FE > 46FF 


46F3 


46F4 


46EA 


603A 


4602 


46D3 


46D4 


46D5 


46F8 o 46FB 


6068 o 607B 


4760 o 47AF 


47B0 a 47FF 


6098 o 609F 


PC 1350 


6F22 > 6F23 


6F2B 


6F2C 


6F2A 


6F57 


6F39 


6F 3 A 


6F3B 


6F3C 


6F44 

a 

6F 47 

7090 

a 

70A3 

6E06 

a 

6E5F 

6E60 

a 

6EAF 

6EB0 

a 

6EFF 


SOUS- 


0 - 


0 - 

0 - 


Xre 9 < 


Xr-e 9 - 


Xr-e 9 - 


Xr-e 9 — 


Yr-e9 - 
Yr-e9 — 


Yre9 — 


Zr-e9 - 


PGfl Lfl 


-> Xre9 


-> Yr-e9 
-> Zr-e9 


-> Yr-e9 


-> Yre9 


-> Zr-e9 


-> Ulr-e9 


-> Xr-e 9 
-> Zr-e9 


-> Ulr^e9 


-> Xr-e 9 


Wi~e9 — > Yr-e9 


PC 1245/51/55 

PC 1260/61 

00A2 

00E7 

00AC 

00DE 

00B2 


0291 

01B4 

HHËESSHHHi 

0177 

01F3 

0194 

01FF 

01A0 

0238 

015B 

023D 

0188 

0281 

0141 

/ 

0183 

020F 

0169 

0273 

014D 


PC 1401/02 


0101 

00F5 


00FB 


01F3 


01B6 


01D3 


01DF 


019A 


01C7 


0180 


01A8 


018C 


PC 1350 


0142 


0136 


013C 


020F 


01D2 


01EF 


01FB 


01B6 


01E3 


019C 


01C4 


01A8 


DEFINITION 

PC 1245/51/55 

PC 1260/61 

PC 1401/02 

PC 1350 

QPerat î on Xre 9 

[203 o C273 

C103 a [173 

[103 a [173 

[103 a [173 

OPenat 1 on Vre 9 

C28H a C2F1 

i — i 

H* 

CO 

P 

i — \ 

H 4 

Tl 

[183 a [1F3 

[183 a [1F3 


ÜPerat i on 

Z ne 9 

[30] 

a [371 

[203 

a [273 

[203 

o [273 

ÛPenat : on 

Ulne 9 

[383 

a [3F 3 

[283 

a [2F 3 

[283 

o [2F 3 

























































































































































TABLEUR 


Votre PC 1251 est jaloux des PC 
1260/61 et 2500 ? Offrez-lui 
ce programme de tableur. Il per- 
met de travailler sur cinq formu- 
les à la fois. 

On débute par RUN. Deux questions sont 
posées. A la première, il faut donner le WAIT 
de l'affichage. 60 laisse afficher pendant 1 
seconde. Puis, répondre 0 pour initialiser à la 
première utilisation. Plus tard on répondra N, 
si l'on veut conserver les données précédem- 
ment calculées. 

Le programme en lui-même se présente comme 
un menu à 6 choix : 

• SUPPRESSION DE FORMULE : supprime la 
formule dont on a spécifié le Numéro. La 
réponse 0 renvoie au menu. 

• FORMULE : permet de visualiser une for- 
mule telle que l'utilisateur l'a tapée. Si une 
imprimante est connectée, le pgm demande 
l'impression ou non. 

• TITRES : récapitulatif des titres des 5 for- 
mules entrées. Avec possibilité d'édition sur 
imprimante, si elle est connectée. 

• CALCUL DE FORMULES : si l'imprimante 
est branchée, les résultats s'imprimeront auto- 
matiquement. Cela permet de garder une trace 
écrite. Le programme demande les valeurs des 
différentes variables nécessaires et ressort 
quasi-instantanément le résultat attendu. 
•AJOUT FORM. : pour écrire une formule, 
il faut évidemment respecter un certain nom- 
bre de règles. Cette formule ne peut compor- 
ter que 52 caractères au maximum. Elle doit 
obligatoirement débuter par une variable. Ce 
sera la variable résultat. Tout de suite après, 
on trouve le signe = égal. Le second membre, 
quant à lui, ne peut comporter que 9 variables 
au plus. Bien sûr, ii est interdit d'employer à nou- 
veau dans le second membre la variable résul- 
tat. Par contre une même variable peut être uti- 
lisée plusieurs fois après le = .Seuls les 6 pre- 
miers caractères sont significatifs. De plus, le 
pgm reconnaît les signes mathématiques clas- 
siques : + - . , (le virgule est interprétée 
comme un point décimal) / ( ) ir V *. Ainsi que 
les fonctions suivantes : SIN, COS, TAN, ASN, 
ACS, ATN, EXP, LN, LOG, INT, ABS, SGN. Ne 


pas oublier un blanc séparateur entre l'opéra- 
teur et l'opérande pour éviter de confondre 
avec des variables. Voir pour cela, les exem- 
ples fournis. La cohérence mathématique de 
la formule n'est pas testée. Dans le cas où il 
y aurait une erreur, elle apparaîtra au moment 
du calcul. Dans ce cas, relancer le pgm et ne 
pas réinitialiser. Supprimer alors la formule con- 
cernée et recommencer. 

• FIN : sortie du pgm par END. 

La gestion des erreurs de capacité et de 
syntaxe lors de l'ajout d'une formule, est assu- 
rée par le Tableur. Un message d'erreur appro- 
prié apparaît à l'écran et la formule est annu- 
lée. Si vous avez 5 formules utilisées et que 
vous voulez en rajouter une autre, il n'y a pas 
d'écrasement aléatoire. Il faut procéder par 
suppression. Enfin, pour ne pas perdre toutes 
les données lorsque vous sortez du pgm ou que 
vous éteignez votre PC 1 251 , il suffit de répon- 
dre N à la question « REINITIALISATION ? ». 
Important : si vous modifiez le programme, 
n'oubliez pas de changer le POKE en ligne 20 
qui initialise le pointeur de variables DIM en cas 
de RUN. 


14: E=56: RETURN 

20: INPUT * VITESSE AFFIC 
HAGE?">W: WAIT 14: 
INPUT "REINITIALISAT 
ION?"! A$: IF A$="N" 
POKE &C5FC; 200> 194: 
GOTO 40 

30: DIM Y$C4>*18j Z$(4)*5 
2 ? V ( 4 ) ? C ( 9 ) > B $ ( 4 j S ) * 
6»X$(0)#10 

40: PR INT "S->SUPRESSION 
> C->CAlCUL" : ■ PR INT * 
A- > AJOUT FORM. .< T — > T I 
TRES": PR INT *F->FOR 
MULE.' E->FIN" 

45: INPUT "VOTRE CHOIX?" 
5 L$: IF L$< >"A" AND 
L$< >"F" AND L$< >"C" 
AND L$< >"S" AND L$<> 
"T" AND L$< >"E" GOTO 
40 

50: GOSUB L$: WAIT 14: 
PRINT " ": PRINT = 

PR INT : GOTO 40 

55 : " S " : X$ ( 0 ) = " SÜPRESS I 0 
N": GOTO 65 

57: "F" :Xt<8>=" AFFICHAGE 
": GOTO 65 


Le nombre de X aux lignes 2, 3, 4, 5, 6 est fon- 
damental. Si vous en oubliez un, vous risquez 
un ALL RESET. Pour rentrer une ligne qui sature 
les 80 caractères, pressez ENTER afin d'inter- 
préter le début, puis éditez-la de nouveau. 

Hervé DEVOS. 

1 “ b U T U L b 

2 : X X X X X X X X X X X X X X X X X X X X 

X X X X X X X X X X X X X X X X X X X X 

xxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxx 


6 : X X X X X X X X X X X X X X X X X X X X 

X X X X X X X X X X X X X X X X X X X X 

i x i i x t X . x . . x ( i x i X X X X X X X X X X X X 


60s *C*:X*(0>=* CALCUL* 
655 PRINT X*(0)i v DE FOR 
MULE* ! PRINT *0 -> R 
ETOUR MENU* : INPUT * 
NO FORMULE?* î As IF A 
=8 RETURN 

67: IF A<1 OR A >5 PRINT 
*NQ INCORRECT* : GOTO 
65 

78:A=h-1: V(A>=8 

PRINT FORMULE INEXÏ 
STANTE* : GOTO 65 
72 ; J=75+48* < L$=* C > +325 


X 

XX 

XX XJ 

V V 

xxxx 

XXX XX 


*<L$= 

*F*>: 

GOT 

0 

r . 

1 

l"t 

XX 

| X ! » X ! | X J ï* 

: y v 

xxxx 

xxxxx 

75: 

V < H > = 

0: Y$' 

. A > = * 

••• 


I X « 

XX 

XX XJ 

! X X 

XX XX 

xxxxx 

77 * 

Z$( A) 

= " v ; 

FOR 

1=0 TO 

X 

XX 

XXX XXX 

xxxx 

XXX 


9: B$< 

A ? I > = 

: ; 

NEJ 

<T I 

x 

r- ft 

xxxxxx 

X X X X 

xxxxx 


: FOR 

1=0 

TO 7 

7 : 


X 

XX 

v >. 

i": r. 

' V V 

1 ."t l"l 

xxxx 

xxxxx 


POKE 

471 6 j 

. + 1+3 

IA? 

104 

X 

1 ,v t l x t 

XXX J 

!XX 

xxxx 

xxxxx 


: N EN 

T l: 

IF L 

$< 


X 

X X 

XX XJ 

1 V v 

t l-l l"l 

xxxx 

XXX 


RETUR 

N 




X 

y v 

X X X X X X 

xxxx 

xxxxx 

80: 

PRINT 

X $ ( 0 } ? * 

fl K 


X 

XX 

XX x> 

; x X 

xxxx 

xxxxx 


RETUR 

N 




X 

XX 

XXX J- 


n ft . -t A 

xxxxx 

115: 

FOR I 

=1 TO 9: 

IF 

B$( 

X 

XX 

XXX J- 

.XX 

V V V V 
A «A 

XXX 


A) IX 

>"" F 

'R INT 

V 1 , 

:‘ ! AR. 


AL EU R? * ? C ( I ) 

: NEXT I: GOSUB A+2: 


V v V v V 

mxmxxxm 

GOSUB 928 


7: E=48: 

RETURN 

125: PRINT TORM! 

JLE 

8: E=49: 

RETURN 

STR$ (A+1)S 

< » 

9: E=55: 

RETURN 

A): FOR 1=1 

TO 

10: E=53: 

RETURN 

B$<A? !)<>** 

PR 




130: NEXT I: PRINT "RESUL 

Hl< "A" PRINT "CAR. I 

FORMULE 4. 

tat ";bi<Aï 0 >; "=";c< 

NCONNU : " i H$: 


0)s RETURN 

RETURN 

hCUVS0LBE=AhC8QLBE-BEBIT 

158: "A": A=6: FOR 1=0 TO 

515: Hl= MIDI (ZI(A>iX»l> 

+CRE3IT-AGGI0S+ INTERET 

4: IF V<I>=8 LET A=I 

520: IF HK = "Z" AND H$>=" 


: 1=5 

A" OR Hl<="9" AND H$ 

FORMULE 4 : BANQUE 

155: NEXT Iî IF A=6 PRINT 

>="0" LET FI=FI+Hf: X 

VAR. ANCSOL = 50. ' 

"AUCUNE FORMULE LIBR 

=X+1 : GOTO 515 

VAR. DEBIT =188. 

E"! RETURN 

525: RESTORE 980: FOR 1=1 

VAR. CREDIT = 25. 

160! INPUT "TITRE DE LA F 

TO 12: READ Ql: IF Q 

V A R » A b b ~ U b = 50. 

ORMULE?" 5 Yl< A) ! V< A> = 

l=F! LET E= 1 59+ 1 : 1 = 1 

VAR. INTERE = 25. 

1! INPUT "VOTRE FORM 


RESUL T AT NOUVSO=-50. 

ULE :"5ZI(A): FOR 1= 

527: NEXT, I: IF EO0 


1 TO 24 

RETURN 

FORMULE 5. 

162:0= LEN ZKA): IF 0/2 

534: B=G: FOR 1=8 TO G: 


40 INT (0/24) LET Z 

IF FI=BI(Aï I) LET B= 

Y=(3*TAN X+2*X*LN X)/(X^ 

l(A)=Zî(A)+" " 


2+2) 

165: NEXT I: Y=47 1 6 1 +3 1 A : S 

537: NEXT I: IF B=8 AND G 


=Y+77s X=1 s G=0! E=0 

08 PRINT "VAR. RESU 

FORMULE 5 : EQUATION 

166: Hl= MIDI <ZI<A>!Xj1> 

LTAT ... ": PRINT "U 

VAR. X = 45. 

: IF H$=" " LET X=X+ 

TILISEE 2 FOIS": 

RESULTAT Y=i. 784938879E- 

l: GOTO 166 

RETURN 

81 

167ÜF HI>"Z" OR HK"A" 

548:1F B=G AND G<=9 LET 


PRINT "VAR. RESULTAT 

Bl< A? G)=FI: G=G+1 

FORMULE 5 : EQUATION 

ABSENTE": GOTO 750 

545ÜF B=G AND G>9 PRINT 

VAR. X = 1. 

168: GOSUB 500: IF E=0 

"10 VAR. MAX PAR FOR 

RESULTAT Y=l. 745586493E- 

GOTO 750 

MULE!": RETURN 

02 

170ÜF Hl< >" = " PRINT "CA 

550ÜF Y>S-7 PRINT "FORM 


R. = ATTENDU 

ULE TROP LONGUE": 

FQRflü-E 1. 

PRINT "APRES LA VAR. 

RETURN 


RESULTAT": GOTO 750 

560: POKE Y* 33? 43 » 64+B: E= 

Y=X*SIN X 

175: X=X+2: POKE Y>49,52: 

49: Y=Y+3: X=X-1 : 


Y=Y+2 

RETURN 

F0RP1ÜLE 1 î HATH1 

177: Hl= MIDI <ZI (A) > X» 1 ) 

700: PR INT "CK! FORMULE M 

VAR. X = 6. 

: IF X>65 OR Hl="" 

EMORISEE" : POKE Y» 29 

RESULTAT Y=e. 

GOTO 700 

» 222» 0: RETURN 


178ÜF Y>S-3 AND X<=52 

750: PR INT "FORMULE REJET 

FORTülE 1 : MATH! 

AND Hl< >" " PRINT "FO 

EE!": GOSUB 75: 

VAR. X = 90, 

RMULE TROP LONGUE": 

RETURN 

RESULTAT Y=98, 

GOTO 750 

800: "E": END 


130ÜF Hl<="9" AND Hl>=" 

990: "T": GOSUB 920: 

FORMULE 1 s MATH 1 

0" LET E=64+ VAL Hl: 

PRINT "LISTE DES TIT 

VAR. X = 180. 

GOTO 218 

RES": PRINT " ": FOR 

RESULTAT Y=0. 

133ÜF Hl=" " LET X=X+l: 

1=8 TO 4: PRINT STRI 


GOTO 177 

<1+1)5 > " 5 Y$< I ) : 

FO R Plu LE 2. 

185: E=0: IF Hî<="/" AND 

NEXT I: RETURN 


Hl>=" ( " GOSUB ASC H$ 

928ÜF PEEK IC6BB AND 4 

P E R ! ME “ R E = 2 * ïï * R A Y 0 N 

-33 

INPUT "IMPRESSIQN<0/ 


197: IF Hl= "/>" LET E=57 

N)?" î SI: IF Sî="0" 

FORMULE 3. 

199: IF HI="Jt" LET E=25 

PRINT = LPRINT 


281: IF HI="T " LET E=26 

938: RETURN 

S U R F A 0 E = J- * R A Y 0 2 

295: IF HI="E" LET E=?5 

988: DATA "SIN" ? "COS" ? "TA 


297ÜF E=0 GOSUB 500: IF 

N " ? " ASN " ? " AC3 " ' * ATN " 

FORMULE 3 : CERCLE2 

E=8 GOTO 758 

5 " EXP " ? " LH " .< "LOG") "I 

VAR. RAYON = 25, 

2 1 8 : POKE Y » E : Y= Y+ i : X=X+ 1 

NT" ! "ABS" ! "SGH" 

RESULTAT SÜRFAC=1 963 . 495 

: GOTO 177 


488 

488: GOSUB 920: PRINT "FO 



RMULE " 5 A+l : PRINT " 



": NAIT : FOR 1=25 

T j i- jj j- j ; i !+ j- s 


TO LEN Zl< A) STEP 24 

1->MATH1 


: PRINT MIDI (ZKA)» 

2->CERCLEl 


I —24 f 24 > : NEXT I: 

3- > Ccf. CLE 2 


RETURN 

h- ~ : V 1 î* 1 L ; (J L 


580: F$=""; IF H$>"Z" OR 

5-/EQÜATI0N 





COMETES ET ASTEROÏDES 


Le programme suivant écrit en 
BASIC pour un PC SHARP 1261, 
est destiné aux astronomes 
amateurs. Il leur permettra de 
calculer la position d'une 


Depuis plusieurs mois les comètes ont eu les 
honneurs de la presse, du livre et de nombreu- 
ses revues scientifiques. Et pourtant la visi- 
teuse tant attendue de Sir Edmund HALLEY 
s'est montrée jusqu'ici bien discrète et n'a pas 
fait pâlir le joyau des Pléiades en passant au 
Sud de celles-ci le 16 novembre 1985. 

Les astéroïdes sont ces petites planètes qui gra-, 
vitent autour du soleil suivant des ellipses géné- 
ralement peu excentriques, voisines de l'éclip- 
tique et situées, pour la presque totalité, entre 
les orbites de Mars et de Jupiter. Le premier 
astéroïde fut découvert le 1 er Janvier 1 801 par 
l'astronome G. PIAZZI. Il lui donna le nom de 
Cérès. Heureux présage, car depuis lors la 
« moisson » des astronomes dans ce domaine 
s'est avérée abondante ; on ne compte pas 
moins de 3 000 astéroïdes répertoriés. 

Pour calculer la position géocentrique d'une 
petite planète ou d'une comète périodique, on 
fait appel à une méthode différente de celle uti- 
lisée pour les grosses planètes. Cette dernière 
méthode a été détaillée dans le programme 
« EPHEMERIDES » paru dans le bulletin N°16. 


comète périodique ou d'un asté- 
roïde, avec une précision suffi- 
sante pour pointer dans cette 
direction un télescope ou une 
luneHe. 


Ici on ne calcule pas la longitude et la latitude 
héliocentriques de l'astéroïde ou de la comète, 
mais ses coordonnées équatoriales rectangu- 
laires géocentriques (x,y,z) en partant des élé- 
ments orbitaux de cet astre rapportés à l'équi- 
noxe standard de 1 950.0 et des coordonnées 
équatoriales rectangulaires du soleil (X,Y,Z) 
rapportées à ce même équinoxe. Les coordon- 
nées équatoriales sphériques géocentriques 
(Ascension droite et Déclinaison ainsi que la 
distance Terre-Astre) s'en déduisent alors par 
des formules simples. 

Les éléments orbitaux des comètes et des asté- 
roïdes, publiés généralement dans l'Annuaire 
du Bureau des Longitudes, sont les suivants : 

• T instant de passage au périhélie exprimé en 
jours Julien. 

• q distance au périhélie exprimée en UA. 

• e excentricité de l'orbite. 

• u argument du périhélie 

• Q longitude du nœud ascendant 

• i inclinaison de l'orbite sur l'écliptique. 

Les trois derniers éléments (u, Q, i) sont rap- 
portés à l'équinoxe standard de 1 950.0. Tous 


ces éléments ne sont donnés que pour un ins- 
tant précis appelé « époque ». Ils varient len- 
tement en fonction du temps du fait des per- 
turbations planétaires. Ils peuvent cependant 
être considérés comme constants sur une 
échelle de plusieurs mois, voire une année (par 
exemple durant la période de visibilité d'une 
comète). Dans certains cas, au lieu de q et de 
T, on donne les éléments a (demi-grand axe) 
et MO (l'anomalie moyenne de l'époque). Les 
relations suivantes permettent de calculer facil- 
lement q et T : 
q=a x (1 -e) 

T = (Jour Julien de l'époque _ M®) 

avec n= 0,985609 = m 0 y en mouvement 
AVÀ 

journalier en degrés. 

Si on connaît q, e et T ou a, e et MO, on peut 
calculer l'anomalie moyenne M à chaque ins- 
tant. En effet, celle-ci augmente de n degrés 
par jour et est nulle à l'instant T. 

Rappelons que l'inclinaison i et la longitude du 
nœud ascendant Q définissent la position du 
plan de l'orbite par rapport au plan de l'éclipti- 
que (voir figure 1 ). La position de l'orbite dans 
son plan est définie par l'argument du périhé- 
lie u, angle que fait la direction « soleil-astre » 
avec la direction « soleil-nœud ascendant ». 
Les comètes décrivent leur orbite dans le sens 
direct, mais si l'inclinaison i de leur orbite est 
supérieure à 90°, elles nous paraissent, vues 
de la terre, avec un mouvement rétrograde. 
C'est le cas de la comète de Halley dont l'in- 
clinaison de l'orbite est de 1 62° (voir figure 2). 
Les dimensions et la forme de l'orbite sont défi- 
nies par le demi-grand axe et son excentricité 
e. La position de l'astre sur son orbite est défi- 
nie par l'anomalie vraie v et le rayon vecteur 
r (voir figure 3). 


Les éléments orbitaux d'une petite planète ou 
d'une comète périodique étant connus, on cal- 
cule sa position géocentrique à un instant 
donné comme suit : 

On calcule tout d'abord les quantités PI, P9 
et Q7, Q8, Q9 qui sont constantes pour une 
orbite donnée. L'établissement de ces formu- 
les dépasse le cadre de cet article. Le lecteur 
désireux d'en savoir plus pourra se reporter à 


la page 1 84 du manuel d'astronomie générale 
de M. DANJON. 

P7 = cosu x cosQ - sinu x sinQ x cos i 

P8 = (cosu x cosQ - sinu x sinQ x cos i) x cose - sinu x sin i x sine 

P9 = (cosu x cosQ - sinu x sinQ x cos i) x cose + sinu x sin i x cose 

Q7 = sinu x cosQ - cosu x sinQ x cos i 

Q8 = (cosu x cos i - sinu x sinQ) x cose - cosu x sin i x sine 

Q9 = (cos u x cosQ x cos i - sinQ x sinQ) x sine + cosu x sin i x cose 


Les trois éléments i, u et Q étant rapportés à 
l'équinoxe de 1950.0, on prendra pour e, incli- 
naison de l'écliptique, sa valeur pour 1950.0 
soit e 23°, 4457889. 

JD étant le jour Julien correspondant à la date 


et à l'heure de l'observation, on calcule l'ano- 
malie moyenne de l'astre à cet instant : 
M=nx(JD-T) 

Par résolution de l'équation de Képler, on en 
déduit l'anomalie excentrique E puis l'anoma- 


lie vraie v et le rayon vecteur r. 

Les coordonnées rectangulaires dans le plan de 
l'orbite sont égales à : 

XI =rxcosv, Y1 =r x sinv 

Les coordonnées équatoriales rectangulaires 




héliocentriques sont alors données par les 
relations : 

X2 = P7 x XI +Q7 x Y1 
Y2 = P8xX1+Q8xY1 
Z2 = P9 x XI + Q9 x Y 1 

Ces formules sont particulièrement intéressan- 
tes lorsqu'on désire connaître les coordonnées 
rectangulaires pour plusieurs positions de l'as- 
tre considéré. En effet, les coefficients P7 à P9 
et Q8 à Q9 ne sont fonction que de i, w, ü et 
e et sont donc constants pour la totalité de 
l'éphéméride. Pour chaque position seuls v et 
r doivent être calculés. 

Pour passer des coordonnées héliocentriques 
aux coordonnées géocentriques, il est néces- 
saire de calculer les coordonnées équatoriales 
rectangulaires du soleil que l'on rapportera à 
l'équinoxe de 1 950.0. A cet effet, on calcule 
d'abord la longitude vraie 1 du soleil rappor- 
tée à l'équinoxe moyen de la date de l'obser- 
vation et le rayon vecteur R du soleil exprimé 
en UA ; ceci implique le calcul de la longitude 
moyenne et de l'anomalie moyenne du soleil, 
de l'excentricité de son orbite et de l'inclinai- 
son de l'écliptique. La résolution de l'équation 
de Képler permet alors d'obtenir l'anomalie 
excentrique ; on en déduit ensuite l'anomalie 
vraie v puis la longitude vraie 1 du soleil et son 
rayon vecteur R. 

Les coordonnées équatoriales rectangluraires 
du soleil rapportées à l'équinoxe et à l'équa- 
teur moyens de la date sont alors données par 
les relations : 

XO = Rxcosl 
YO = R xsinl xcose 
ZO = R xsinl xsine 

Pour rapporter ces coordonnées à l'équinoxe 
standard de 1950.0, on procède comme suit : 
Si (X,Y,Z,) représentent les coordonnées cher- 
chées on a : 

X = XXxXO+YXxYO+ZXxZO 
Y = XYxXO+YYxYO+ZYxZO 
Z XZxXO+YZxYO+ZZxZO 
avec 

XX = cosKI xcosK2xcosK3-sinK1 xsinK2 
XY = cosKI xcosK2+ cosKI xsinK2xcosK3 
XZ = cosKI xsinK3 

YX =-cosK1 x sinK2 - sinKI xcosK2xcosK3 
YY = cosKI x cosK2 —sinKI xsinK2xcosK3 
YZ = -sinKI xsinK3 

ZX = -cosK2xsinK3 
ZY= -sinK2xsinK3 
ZZ= cosK3 



Kl , K2 et K3 sont les quantités nécessaires au 
calcul de la précession selon la méthode de 
Newcomb. Pour l'équinoxe de 1950.0, on a : 

Kl = 2304' ’ ,948 x TF + 0" ,302 x (TF) 2 + 0' ',01 8 x (TF) 3 
K2 = 2304", 948 x TF + 1 ",093 x (TFp +0",019x (TF) 3 
K3 = 2004", 255 x TF - 0",426 x (TFp - 0",042 x (TF) 3 
avec TF = (2433282,423- JD) / 36524,2199 

JD étant le jour Julien correspondant à la date 
de l'observation. On remarquera qu'en pre- 
mière approximation on a : 

YX= - XY, ZX = -XZ, ZY=YZ 
ceci permet de simplifier légèrement les calculs. 
Les coordonnées équatoriales rectangulaires 
géocentriques sont alors égales à : 
x = X2+X 

y = Y2+Y 

z = Z2+Z 

et la distance Terre-Astre est égale à 
A = Vx 2 + y 2 + z 2 

Un sous-programme (lignes 440 à 490) permet 
de rapporter ces coordonnées à l'équinoxe 
standard de 2000,0 utilisé depuis quelques 
années dans les atlas et annuaires. 

Les coordonnées sphériques géocentriques de 
la comète ou de l'astéroïde sont alors données 
par les formules : 

tga = Y sinô = JL ou tgS = l 

x A Vx 2 +y 2 

L'élongation de l'astre au soleil (distance angu- 
laire Soleil-Astre) est donnée par : 
cosO = D 2 +A 2 -r 2 a vec D = ^X 2 +Y 2 +Z 2 
2DA 

distance Terre-Soleil. 

Les coordonnées équatoriales (Ascension 
droite et Déclinaison) rapportées à un équinoxe 
standard (1 950.0 ou 2000.0) sont dites coor- 
données astrométriques. On les reporte géné- 
ralement sur un atlas céleste pour situer une 
comète ou un astéroïde dans une constellation 
de façon à en faciliter l'observation. 

Pour observer une comète ou un astéroïde à 
l'aide d'une lunette ou d'un télescope, il est 
nécessaire d'avoir les coordonnées équatoria- 
les de cet astre rapportées à l'équinoxe de la 
date d'observation ou les coordonnées horizon- 
tales (Azimut et Site). Le programme assure 
donc également ces calculs. Les lignes 330 à 
335 corrigent l'ascension droite et la déclinai- 
son de la précession de façon à rapporter ces 
coordonnées à l'équinoxe de la date. Les lignes 
355 à 41 0 transforment les coordonnées équa- 
toriales en coordonnées horizontales (voir 
figure 4). L'azimut est compté à partir du Sud 
et le Site est corrigé de la réfraction jusqu'à 1 0 
au-dessus de l'horizon. 


En tête du programme, initialisé par DEF A si 
l'on utilise l'imprimante et par DEF Z si on ne 
l'utilise pas, un menu de résultats est proposé 
à l'utilisateur. Trois choix sont possibles : 

1 . Coordonnées astrométriques 

Les résultats sont alors donnés à 0 TU de la 
date rentrée ultérieurement et rapportés à un 
équinoxe standard (1950.0 ou 2000.0 suivant 
le choix de l'utilisateur). Les résultats compren- 
nent l'ascension droite, la déclinaison, la dis- 
tance héliocentrique, la distance géocentrique, 
l'élongation et la magnitude totale. 

2. Coordonnées horizontales 

Dans ce cas on demande à l'utilisateur les coor- 
données géographiques du lieu d'observation 
ainsi que la date et l'heure de l'observation. Les 
résultats seront alors rapportés à l'équinoxe de 
la date et comprennent l'ascension droite, la 
déclination, l'azimut et le site corrigé de la 
réfraction. 

3. Tous les résultats 

Dans ce cas on obtient les résultats des menus 
1 et 2, mais les coordonnées astrométriques 
toujours rapportées à un équinoxe standard 
’ sont données pour l'heure TU de l'observation. 
Après affichage ou impression des résultats, 
le programme demande à l'utilisateur s'il désire 
obtenir l'éphéméride d'un autre astre ou du 
même astre pour une autre date ou une autre 
heure, ou tout simplement sortir du pro- 
gramme. Il suffit alors d'appuyer respective- 
ment sur S, D, H ou F. 

Le fichier de données situé en fin de programme 

comprend les éléments orbitaux de 3 comètes 

périodiques et de 3 astéroïdes, à savoir : 

HAL = HALLEY 

GIA = GIACOBINI-ZINNER 

ASH = ASHBROOK-JACKSON 

CER = CERES 

PAL = PALLAS 

VES = VESTA 

Les éléments orbitaux sont ceux publiés dans 
l'annuaire du bureau des longitudes de 1 986. 
Ce fichier peut évidemment être étendu si l'uti- 
lisateur le désire. Pour garder une bonne pré- 
cision, ces éléments devront être mis à jour 
chaque année lors de la parution du nouvel 
annuaire du bureau des longitudes. 

On trouvera ci-après, un ordinogramme du pro- 
gramme, un listing commenté et quelques 
exemples de résultats avec comparaison aux 
résultats annoncés par le bureau des 
longitudes. 

Jean HERY 
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ENTREE DES COORDONNEES 
GEOGRAPHIQUES DU LIEU 
D'OBSERVATION j 


CHOIX EQUINOXE DE 
REFERENCE : 

1950.0 ou 2000.0 



LECTURE DES ELEMENTS DE 
L'ORBITE DE L’ASTRE CHOISI 
DANS LE FICHIER DE DONNEES 


95 


CALCUL DES QUANTITES 
P7 PB P9 et Q7 Q8 Q9 






800 


t 

CALCUL DU JOUR JULIEN 
CORRESPONDANT A LA DATE 
RENTREE A 0 TU. 


L 


3-Ç 


ENTREE DE L' HEURE TU 
DE L'OBSERVATION 


7 ’ 




MENU CHOISI - I ? . 


-1 180 

'OSEE - 0 TU . I 



( AFFICHAGE OU IMPRESSION 
Ascension droite 
Déclinaison 
Azimut 


340 


CALCUL DU TEMPS SIDERAL l.OCAl 
CALCUL DE L' AZIMUT ET DU SITE 
avec cofrection de réfraction 
si le Site est supérieur à 1* 


320 


CORRECTION DE PRECESSION 
pour obtenir 1 Ascension 
droite et la Déclinaison 
rapportées à l'Equinoxe 
de la date. 



CALCUL DE : 


- Distance Terre-Astre 

- Distance Terre-Soleil 

- Elongation 

- Magnitude 


- Ascension 

droite 

- Déclinaison j 

280 , 



•K 


MENU CHOISI - 2 


AFFICHAGE OU IMPRESSION 
DES COORDONNEES ASTRO - 
METRIQUES : 

- Equinoxe de référence 

- Ascension droite 

- Déclinaison 

- Distance géocentrique 

- Distance héliocentrique 

- Elongation 

- Magnitude (si la magni- 
tude absolue est dans 

le fichier des données) J 


l:REfl CALCUL DE LA PQS 

um a . u«l c oup e , 

QU D UN ASTEROÏDE 
2s REM Edition du 8-1-1 

32 REM AUTEUR : Jean HE 
RY 

52 ¥ A*: PRINT = LPRINT 
: GOTO 15 

102 *Z* 2 PRINT = PRINT 

152CLEAR ! RESTQRE s 
RADIAN : NAIT 50: 
USING 

20sFl$«*CSSS.Sm*iF2$B 

'S2S.m':F3**'SSSS. 

r 

25:R1=ÏÏ/180:K=.01720209 

895 

30: *M*: PRINT * MENU DES 
RESULTATS* 

352 PRINT *1 = Coord. Ast 
roaetr iaues*: PRINT 
*2 * Coord. Hor izonta 
les*: PRINT *3 = Tou 
s résultats* 

40: INPUT *Votre choiz ? 


INITIALISATION 

DEF A = Avec imprimante 

DEF Z = Sans imprimante 

Remise à zéro des variables et des 
pointeurs 

Passage en mode RADIAN 

Définition des formats d'affichage ou 

d'impression. 


Affichage ou impression du MENU DES 
RESULTATS possibles. 


Choix du MENU 


1*2 ou 3 *5FL: 

PRINT *Choiz du Menu 
: *; STR$ FL 

4JIijüL^ 

502 *L* 2 PRINT *LIÉU D 0 
BSERVATION *! USING F 

■■■ 

552 INPUT * LATITUDE<d.as 
) ? *5LA2 PRINT *Lat 
. (d.es) =*5LA2LA= 
DEG LA*R1 

60s INPUT *LQNGITUDE(d.e 
s) ? *î LQ: PRINT *Lo 
ne.(d.es) =*5LQ2LQ S 

65!*S*2 PRINT : INPUT * 
Noe coeete ou astero 
ide ? *ÎSS$: PRINT * 
** *5SS$5 * *** 

7021F FL=2 LET AA=1950: 
GOTO 88 

75! INPUT ¥ EQUINOXE 1958 
ou 2080 ? *5 AA 

80! RESTORE LEFT$ <$S$>3 
) 

85: RE AD J9»F9»Qi EX>I4*N> 
I f PII » K2 


Dans le cas des menus 2 et 3 Entrée des 
coordonnées géographiques du lieu 
d'observation. 

Latitude ( + si Nord, - si Sud) 

Longitude ( + si Ouest, . - si Est) 


Entrée du Nom de la comète ou de l'asté- 
roïde (voir en fin de listing les astres qui 
figurent dans le fichier de données). 

Entrée de l'équinoxe standard auquel on' 
désire rapporter les résultats (1950.0 ou 
2000 . 0 ) 

Lecture dans le fichier de données des élé- 
ments de l'orbite de l'astre choisi. 


-9ftLH= N*RiîJM^^ 


95s REPI P'S ET Q'S Calcul des quantités P7 à P9 et Q7 à Q9. 

1 00 s E=23 . 445?859*R1 
105: Wl= SIN H:H2= COS U 

1108N1= SIN NSN2- COS N 

115811= SIN I* 12= COS I 

120: El= SIN E:E2= COS E 


1258P7=W2*N2-H1*N1*I2:PP 
=H2*N1+U1*N2*I2 
130:P8=PP*E2-W1*I1*E1 
135:P9«PP*E1+W1*I1*E2 
140SQ7=-H1*N2-M2*N1*I2:Q 
Q=M2*N2*I2-H1*N1 
1 45 : Q8*QQ*E2-U2* I 1 *E 1 
15a.:M;jaa*EI*M 2»1 1*E2 
1558*11*: NAIT 20s PRINT 
! INPUT *JOUR ? *;a: 
INPUT ’PIOIS ? *5H8 
INPUT * ANNEE ? ’SY 
1608HH=HsAN=Y 
1658HAIT 120: PRINT 'DAT 
E = *î STR* ])+•-•+ 
STR* H+'-’+ STR* Y 
1708GOSUB 800 
175sJl=JsFl=F:T0=J-24150 
20:T0=<T0+F)/36525 
1808 ’H’s IF FL=1 LET HE= 
0: GOTO 190 

185: INPUT *HEURE TU(h.as 
2_2 ’ÎHES USING F1 *s 
PRINT 'Heure TUOi.es 
)=*iHE 

1908 HE= BEG HE/24:F2*F1+ 
HE: J2=Jl+(F2>l)sF2=F 
2-<F2>l) 

1958G0SUB 500 
280sT=(J2-J9)+(F2-F9) 
2058GOSUB 600 


Entrée de la date de l'observation. 


Affichage ou impression de la date de 
l'observation. 

Branchement au sous-programme CALEN- 
DRIER pour la calcul du jour Julien corres- 
pondant à la date rentrée. 

TO = Nbre de siècles Julien compris entre 
le 0 JANV. 1 900 à 1 2 TU et le jour de l’ob- 
servation à 0 TU. 

Entrée de I neure I u ûe i ooservatlon. 
Dans le cas du Menu 1, on impose 0 TU, 
heure adoptée pour les coordonnées astro- 
métriques. 

Branchement au sous-programme de cal- 
cul des coordonnées équatoriales rectan- 
gulaires du soleil. 

T = Nombre de jouirs écoulés depuis le 
passage au périhélie. 


2108 REPI POSITION DANS LE 
PLAN BE L ORBITE 
215sXl=R* COS VsYl=R* 

SIN V 


Branchement au sous-programme de 
résolution de l'équation de Képler. 
(X1,Y1| = coordonnées rectangulaires de 
l'astre dans le plan de l'orbitre. 


2208 REH COORDONNEES EQUA 
TORIALES HELIO. 

225 s X2*P7*X 1 +87* Y 1 
230 s Y2=P8*X 1 +Q8* Y 1 
2358Z2=P9»X1+Q9»Y1 
240: REH COORDONNEES EQUA 
TORIOLES GEO. 

245s X3=X+X2: Y3=Y+Y2s Z3=Z 
+Z2 

250:1F AA=2080 GOSUB 440 
255 s D3=T < X3*X3+ Y3* Y3+Z3* 
Z3) 

260: D4=J(X*X+Y*Y+Z*Z) 
265s EL= ACS <<D3*D3+D4*D 
4-R*R)/(2*D3*D4)) 
2668H3=H18H4=H28 IF JD >2 
446470.95 AND LEFT* 
<SS*»3)=’HAL* LET H3 
=4.94SH4=7.68 
267sflA=H3+5* LOG D3+H4* 
LOG R 

2708 A= ATN <Y3/X3)+K*(X3 
<0)s A=A+2*I* < A< 0) : G0 
=A 

275: D= ATN <Z3/J<X3*X3+Y 
3*Y3)):H0=D 
28081F FL=2 GOTO 320 
285: USING s PRINT *EQUIN 
ONE DE 8 *8AA 

2908 USING Fl*: PRINT *£S 
C.(h.ffis) =* 5 DHS 
(A/15/R1) 


(X2,Y2,Z2) = coordonnées équatoriales 
rectangulaires héliocentriques de l'astre. 


(X3,Y3,Z3) = coordonnées équatoriales 
rectangulaires géocentriques de l'astre. 

D3 = distance Terre-Astre 

D4 = distance Terre-Soleil 
EL = élongation c'est-à-dire distance 
angulaire Soleil-Astre 
Ml = magnitude absolue 
M2 = constante propre à chague 
comète pour le calcul de sa magni- 
tude totale. 

MA = magnitude totale de la comète 

A = Ascension droite 1950.0 ou 
2000.0 

D = Déclinaison 1950.0 ou 2000.0. 

Affichage ou impresison des coordonnées 
astrométriques : 

Ascension droite 


295: PRINT * DEC.<d.ffls) 

** J DHS <B/R1> 

300: USING F2*: PRINT ’D± 
st.Geo(UA) * *5D3 
305: PRINT * Dist.Helio<UA 

310SÜSING F3*s PRINT •£!_ 
on». (de*) =*»EL/R1 

3128 1F H1O0 PRINT 'Ha*n 
itude =*5HA 
31581F FL=1 GOTO 415 


320: REH PASSAGE EQUINOXE 
STANDARD-- >EOUINOXE 
DE LA DATE 
325 : DT =AN+HH/ 1 2-AA 
330 s G 1 =G0+ . 0002234748*DT 
+.0008971566* SIN G0 
* TAN H0*DT 

3358H1=H0+.0000971566*DT 

340s REH TEHPS SIDERAL 
345: TS=. 27691938+100. 002 
1359*T0+.000001075*T 
0*T0sTS=TS- INT TS 
3508 TG=2*I*TS-L0s TG=TG+2 
*Jt*<TG<0)sTS=TG+6.30 
038809*HEs TS=TS-2*Jt* 

y : 

355: REH AZIHUT 8 SITE 
3608HR=TS-G1 
,365s P= COS HR* SIN LA- 
TAN Hl* COS LA 
370: AZ= ATN < SIN HR/P>+ 
I*<P<0) 

37581F A2<0 LET AZ=AZ+2* 
ïï 

380: SI= ASN < SIN LA* 

SIN H1+ COS LA* COS 
Hl* COS HR) 

385:1F SI). 817 LET SI=SI 
+. 1540*<n/2-SI- ASN 
(.998115* COS SD) 
3908 PRINT ' EQUINOXE de I 
g date* 

3958 USING Fl*s PRINT *A§ 
C.(h.as) =*î DHS 
(G1/15/R1) 

4008 PRINT 'DEC. (d. as) 

=*5 DHS (Hl/Rl) 

405: PRINT 'Aziaut(d.as) 
=’> DHS (AZ/Rl) 

410s PRINT *Site(d.as) 

=*5 DHS (SI/R1) 

4158 PAUSE 'AUTRE (Astre= 
S»Date= DiHeure= H» 
FIN= F) ? ' 

4168Q1*= INKEY* 

42081F Q1*='D* GOTO *D' 
425:1F Q1*='H' GOTO 'H* 
430:1F Q1*='S* GOTO *S' 
435:1F Q1*=*F* USING s 
DEGREE s GOTO 437 
436:1F ASC Q1*=0 GOTO 41 
5 

4378 END 

440SREH 1958.0— >2088.8 
445 s A7=. 9999257s A8=-.011 
1 789 8A9«-. 004859 
455s B8=. 9999375s B9=-. 000 
0272 

460s C9*. 9999882 
470: X4=A7*X3+A8*Y3+A9*Z3 
475s Y4=-A8*X3+B8*Y3+B9*Z 
3 


Déclinaison 
Distance géocentrique 
Distance héliocentrique 
Elongation 

Magnitude totale dans le cas d'une comète 
et si la magnitude absolue Ml est connue 
(Ml différent de 0 dans le fichier de 
données). 


Réduction des coordonnées équatoriales à 
l'équinoxe de la date d'observation. 

DT = Nombre d'années et de mois compris 
entre l'équinoxe standard et la date de 
l'observation. 


Calcul du Temps Sidéral Local. 


HR = Angle horaire de l'astre 

Calcul de l'Azimut et du Site 
L'Azimut est compté de 0° à 360° à par- 
tir du Sud 

Le Site est corrigé de la réfraction jusqu'à 
1 0 au-dessus de l'horizon. 


Affichage ou impression : 

Ascension droite rapportée à l'équinoxe de 
la date 

Déclinaison rapportée à l'équinoxe de la 
date. 

Azimut 

Site 

Rebouclage pour un autre Astre, une autre 
date ou une autre Heure. Pour sortir du pro- 
gramme appuyer sur la touche "F".' 


Sous-programme permettant de rapporter 
les résultats à l'équinoxe de 2000,0. 



480 : Z4=-A9*X3+B9*Y3+C9*Z 

485 : X3=X4 : Y3=Y4 :Z3=Z4 
490SRETURN 

5688REH X.Y.Z DU SQLElT 
501 s REM < EQUINOXE 1950.0 

504 s J 8= J2-24 1 5020 
505sT=(J8+F2)/36525sTF=<’ 
2433282. 423-<J2+F2)> 
/36524.2199 

506 s L0=279. 69668+36000.7 

6892*T+.8883825*T*T: 

L0=L8*R1 

507 8 M=358 . 47583+35999 . 04 

975+T-. 888 1 5*T*T- . 88 
80833*T*T *T 8 H=M*R 1 

508 8 E0=. 0 16751 04-. 000041 

8*T-. 000000 126*T*T 
509: EP*23. 452294-. 013012 
5*T-. 00000 1 64*T*T+ . 0 
00000503+T *T*T: EP=EP 
*R1 

510801=1.00000028 GOSUB 
615sL=L0+V-H 
515:X0=R* COS L:Y0=R* 

SIN L* COS EPs Z0-R* 
SIN L* SIN EP 
520 s K 1*2384. 948*TF+. 302* 
TF*TF+.818*TF*TF*TF 
525 s K2=2304. 948*TF+1 . 093 
*TF*TF+. 019*TF*TF*TF 
530 s K3=2004. 255*TF-. 426* 
TF*TF-.042*TF*TF*TF 
535 : K 1 =K 1 *R 1 /3680 : K2=K2* 
R1/3600 sK3=K3*R1/360 
0 

5408X4= SIN Kl 8X5= COS K 
1 

5458X6= SIN K2SK7* COS K 
2 

5508X8= SIN K38K9= COS K 
3 

555 s XX=K5*K7*K9-K4*K6s XY 
=K4*K7+K5*K6*K9s XZ=K 
5*KÔ 

560 : YY*K5*K7-K4*K6*K9 : Y2 
=-K4*K8 
565:ZZ=K9 

570: X=X0*XX-Y0*XY-Z8*XZ: 
Y=X0*XY+Y0*YY+Z0*YZ: 
Z-X8*XZ+Y0*YZ+Z0*ZZ 
580:RETURN 


6008 REH EQUATION DE KEP 
LER 

605:E0»EX 

610:Al»Q/a-E0>:M»K*T*Al 

*<-1.5) 

615:E«M+E0* SIN 11 
620: J5*E-E0* SIN E:K5=<H 
-J5)/<l-E0* COS E) 
625:E*E+K5 
630: IF ABS K5>. 00001 
GOTO 628 

635:V=4*<<1+E0)/<1-E0)> 
640: V=2* ATN <V* SIN <E/ 
2)/ COS <E/2>) 
645:R*A1*<1-E0* COS E) 
650:IF V<0 LET V=V+2*Jl 
655îRETURN 


880s REfl CALENDRIER — > J 
D 

805î?=l 

810:F=D- INT D-.5 
815: J=367*Y- INT <1.75*< 
Y+ INT <<M+ 9>/12>>>+ 


Calcul des coordonnées équatoriales rec- 
tangulaires du soleil rapportées à l'équi- 
noxe de 1950.0 

T = Nombre de siècles Julien écoulés 
entre leOJANV. 1900 à 12 TU et 
l'instant de l'observation. 

TF = Nombre de siècles tropiques 
écoulés entre 1900.0 et l'instant de 
l'observation. 

LO = Longitude moyenne du soleil. 

M = Anomalie moyenne du soleil. 

EO = Excentricité de l'orbite du soleil. 

EP = Inclinaison de l'écliptique sur 
l'équateur. 

Al = demi-grand axe de l'orbite du 
soleil. 

L = Longitude vraie du soleil à l'équi- 
noxe de la date de l'observation. 
(X0,Y0,Z0) = coordonnées équatoriales 
rectangulaires du soleil rapportées à l'équi- 
noxe moyen de la date. 

De 520 à 580 réduction de coordonnées 
équatoriales rectangulaires du soleil à 
l'équinoxe standard de 1950.0. 


Résolution de l'équation de Képler par la 
méthode d'itération de Newton. 

Al = demi-grand axe. M = anomalie 
moyenne. 

E = anomalie excentrique. 


V = anomalie vraie. 


R = rayon vecteur. 


Sous-programme CALENDRIER. 

Calcul du nombre de jours Julien corres- 
pondant à la date de l'observation à 0 TU. 
G = 1 impose le calendrier grégorien. 


INT <275*11/9)+ INT D 
+1721027 

820: J=J+2*G-G* INT <.75* 
INT < INT <Y+ SGN <« 
-9)* INT < ABS <»-9> 
/7»/100+l» 

825: IF F<0 LET F*F+1*J«J 
-1 

830 :JD= J+F 
835:RETURN 


900! REH FICHIER SE DONNE 

910: V HAL V : DATA 2446470» 
.95224». 5871345657». 
9672892 

915: DATA 1 1 1 . 8531 5 » 58. 14 
775» 162. 24009» 5. 47» 1 
1.1 

920: v GIA v ï DATA 2446313» 
.75589» 1.0282672». 78 
75689 

925: DATA 172.48694» 194.7 
0780» 31. 87747» 9. 6» 10 
.6 

930: V ASH V : DATA 2446454, 
.80207, 2. 3068987». 39 
60807 

935: DATA 348.79069» 1.953 
49» 12.5064»6.5» 14 
940: V CER M : DATA 2446465, 
.59438, 2. 5503483». 07 
83529 

945! DATA 72.54351,80.044 

66.10.60451.0. 0 
950: M PAL*: DATA 2446519, 

.41689, 2. 1241696». 23 
38369 

955*.DATA 309.89425,172.6 

4526.34.80189.0. 0 
960: *VES*: DATA 2446317, 

.94326, 2. 1504744». 88 
97364 

965: DATA 150.74224,103.4 

1813.7.14044.0. 0 


Fichier de données des éléments orbitaux 

des comètes et des astéroïdes. 

Les données sont dans l'ordre suivant : 

J9 = partie entière du jour Julien du 

F9 = partie fractionnaire passage au 
périhélie. 

Q = q = distance au périhélie en UA. 

EX = e - excentricité de l'orbite. 

W = « = argument de périhélie en 
degrés décimaux. 

N = Q = longitude du nœud ascen- 
dant en degrés décimaux. 

I = i = inclinaison de l'orbite sur 
l'écliptique exprimée en degrés 
décimaux. 

Ml = magnitude absolue. 

M2 = constante propre à comète pour 
la calcul de sa magnitude totale. 


EXEMPLES DE RESULTATS OBTENUS AVEC LE PROGRAMME 


NEnü DES RESULTATS 

1 * Coord. Astronetr i aues 

2 « Coord.Hor izontales 

3 s Tous résultats 
Choix du Menu ! 1 


** HALLEY ** 


ANNUAIRE DU 
BUREAU DES 

1! m 


LONGITUDES 

DATE = 1-1-1986 
EQUINOXE DE : 1958. 


ASC.Ch.as) 

22.1457 

22.1459 

DEC. (d. as) = 

-2.3327 

-2.3321 

Dist.Geo<UA> * 

1.159 

1.159 

Dist.Hel i o(UA)= 

1.006 

1.007 

Elong.<deg) = 

55.3 

55.3 

Magnitude = 

5.8 

5.8 

DATE = 1-4-1986 

EQUINOXE DE : 1958. 


ASC. (h. as) = 

18.2111 

18.2112,5 

DEC.(d.«s) = 

-38.4640 

-38.4628 

Dist.Geo(UA) = 

0.528 

0.528 

Dist.Hel io(UA)= 

1.177 

1.178 

Elone. <deg) = 

95.9 

96.0 

Magnitude = 

4.1 

4.1 





MENU DES RESULTATS 


MENU DES RESULTATS 

l s Coor d.Astr omet r iaues 


1 = Coord. Astronetr iaues 

2 = Coord. Hor izontales 


2 » Coord. Hor izontales 

3 * Tous résultats 


3 = Tous résultats 

Choiz du Menu : 3 


Choiz du Menu : 1 

LIEU II OBSERVATION PARIS 



Lat. (d.flts) = 48.5011 


** GIACÛBINI ZINNER ** REVUE n SKY 

Lons.<d.«s) = -2.2014 


.. AND TELESCOPE" 



DATE * 4-6-1985 



EQUINOXE DE : 2000. 



ASC. (h. .s) = 20.5810 20.5812 

** HALLEY ** 


DEC. <d..s) = 34.5319 34.53 



Dist.Geo(UA) = 1.122 

DATE = 20-4-1986 


Dist.Hel io(UA)- 1.610 

Heure TU(h..s>* 22.0000 


E Ions. (des) * - 97.6 98 

EQUINOXE DE : 1950. 


Masnitude = 12.0 n.g 

ASC.<h..s) = 11.5411 



DEC. <d..s) = -31.1048 



Dist.Geo(UA) = 0.537 


** ASHBROOK JACKSON ** ANNUAIRE DU 

Dist.Hel i o<UA>- 1.482 


_ . BUREAU DES 

Elons.(des) = 146.4 


SSII * LONGITUDES 

Hasnitude = 4.9 


EQUINOXE DE : 1950. 

EQUINOXE de la date 


ASC. (h. «s) * 4.1959 4.1959,2 

ASC. (h. .s) = 11.5602 


DEC. (d. as) « 29.4546 29.4546 

DEC. (d. es) = -31.2256 COMETE 


Dist.Geo(UA) = 2.948 2.948 

Azi«ut(d.*s) = 1.4450 VISIBLE 


Dist.Hel io<UA)« 2.661 2.661 

Site(d.es) = 9.5117 A 


Elons.(des) « 63.8 63.8 

PARIS 


Masnitude * 14.7 14 # g 



eur score s '•’ ? 338 


Ce jeu ultra-classique profite de 
quelques POKEs qui le rendent 
graphique sur l'écran 2 lignes 
du 1261 ? 

Est-il besoin de rappeler les règles ? Conformez- 
vous aux messages et demandes affichés par 
le PC, et tâchez de répéter sans faillir la 
séquence de touches proposée. Cette 
séquence s'allonge tant que vous ne faites pas 
d'erreur en la reproduisant. Cela exerce votre 
mémoire, puisqu'il faut se souvenir à chaque 
tour de l'ensemble de la séquence. Pas de pani- 
que, on y arrive avec de l'entraînement. Les 
touches sont comme d'habitude : 2 4 6 et 8. 

Patrick ZACHARY 


1 : A" : B$= M Z'' 

20: ClEAR : WA II 8 
30! WAIT 0! PRlNÏ '•'**** 
PATRICK ***** 
40! WAIT 90: CURSOR 24: 


PEEK 565BF 

70:WAIT 120: CURSOR 29: 
PRINT M$ 

80! WAIT 0: PRINT 1 11 T 
aper ENTER pour 
commencer * 
855CALL &11E0 
90: RANBOM : PCKE 565E0) 


100: CLEAR 

1 10: J=I+ P£EK &65E0 
120! DIM A ( J ) j C ( J ) 

130: A( J)= RNB 4: POKE <& 
65E0+J) > A( J) 

140: FOR 1=1 TO J 

150: AC I )= PEEK (565E0+D 

160: NEtfT l 

170: FOR 1=1 TO J 

180: NAIT 0: PRINT * * 

190: CALL 5,432 
280: POKE 5202C» 12?s POKE 
S206C» 127: POKE 5280 
A- 127: POKE 5284A» 12 
7 

2105 I? R(I)=1 THEN GOSUB 


248:1F Ad) =4 ÏHEH GOSUB 
348 

250: PRINT 
255: NEXT I 
260: GOTO 400 

310: POKE 52037)4) 14» 31 » 1 
4)4: POKE &203?>4j H 
)31) 14)4 

31 1 : POKE S2037)4) 14)31)1 
4)4: POKE ^2037)4)14 
)31) 14)4 

3 1 2 : POKE 5.2037)4)14)31)1 
4)4: POKE 52037)4)14 
) 31) 14)4: RETURN 
320: POKE 52077)16)56)124 
) 56) 16: POKE 52077)1 
6) 56) 124)56) 16 
321: POKE 52077)16)56)124 
) 56) 16: POKE 52077)1 
6)56) 124)56) 16 
322: POKE 52077)16)56)124 
) 56) 16: POKE 52077)1 
6)56)124)56)16: 
RETÜRN 

330: POKE 52805)64)96)112 


j 96 j 64: POKE 8=2845» 1 
? 3» 7 » 3» 1 

331 : POKE 5=2805» 64» 96» 1 12 
» 96 » 64 s POKE &2S45» 1 
» 3» 7» 3» 1 

332: POKE §=2805» 64» 96 » 112 
» 96» 64! POKE 5=2845» 1 
» 3» 7» 3» 1 

333: POKE 5=2885» 64» 96» 1 12 
» 96»64: POKE 5=2845» 1 
» 3» 7» 3» 1 : RETURN 

340: POKE &282D» 64» 96» 1 12 
» 96»64: POKE 5=206D»1 
» 3» 7» 3» 1 

341 : POKE S=282D» 64» 96» 1 12 
» 96»64: POKE 8=206D»1 
» 3 » 7 » 3 » 1 

342: POKE &282D, 64, 96» 1 12 
,96,64: POKE 5206D,1 
» 3, 7 » 3 » 1 

343: HUKE S=202D » 64 » 96 » 1 1 2 
,96,64: POKE S206B»1 
» 3 » 7 » 3 » 1 : RETURN 

480: FOR 1=1 TO J 

410: CALL &11E0 

420: B$= INKEYst 

430: IF B$="S" THEN LE7 C 


448: IF Bf="6" THEN lET C 
( I )=3 

458: IF B $ = u 2 THEN LET C 
< I >=2 

460: IF B$="4" THEN LET C 
( I >=4 

470: IF A( I X >C( I ) THEN 5 
10 

430: NEXT I 
498: POKE 5=65E0»J 
580: GOTO 130 

510: WA I T 60: PR INT "PERD 

U" 

520: PR INT "SCORE ;"55*J 
530:IF (5*J)<= PEEK 5.65D 
F THEN 908 
548: BEER 1: WAIT-50: 
p R I N T "Record battu 

V 

545Ü4AIT 0: PRINT "Votre 
nom ?" 

550: CURSÛR 24: INPUT "=> 
" » NI 

560:POKE 5=65D0» LEN (NI) 
570: FOR 1=1 TO LEN (NI) 
580: Ml= MIDI (NI, 1,1) 
598: POKE (&65D8+I), ASC 

(Ml) 


680: NEX7 I 

610: POKE 5=65DF » 5* J 

909 : WA I T 8 

910: U AIT 90: CLS : PRINT 
"Une autre partie ? 

WÊÊÊ KÈt Ê ÊSÊBËÊÈËÈÊIK Ê ÈK ÊÈ KË 

920: CALl S11E0 
938: Dl= INKEYI 
940:IF LEFTI (DI»1)="0" 
THEN 58 
958: END 


5800: Mî=" " : F= PEEK &65D 
0 

5810: FOR 1=1 TO PEEK §6 
5D0 

5820: G= P£EK (565D8+I) 
5830: MI=MI+ CHRI (G) - 
5840: NESKT I 
5050: RETURN 
5855: END 


PC-nUNT 


PC-Paint est un programme pour 
utiliser l'écran graphique du 
PC- 1 350. On peut tout faire (ou 
presque !) : reproduire sur tout 
l'écran un petit motif, créer un 
écran avec lianes, parallélo- 
grammes, cercles, dessins, tex- 
tes. Et cela autant que la 
mémoire le permet ! 

Sa philosophie est à base de 
Basic pour tes éditeurs et les ins- 
tructions graphiques, tandis que 
le langage machine s'occupe 


telles que l'inversion vidéo, ou 
l'affichage rapide des motifs ou 
des écrans créés. 


ARCHITECTURE : 




LIGNE 



RUN 

10 

Initialisation - Titre 



100 

Menus : choix du mode MOTIFS ou ECRANS 
choix du module 

COMMUNS 

DEF SPC 

250 

Sortie du programme 


GOTO "Err 

260 

Erreur 


GOSUB "SP 

290 

Effacement des 3 dernières lignes de l'écran 


GOSUB "WAIT 

280 

Provoque une pause dans l'affichage 
Attend la pression de ENTER pour poursuivre 


DEF G 

300 

Création de motifs • entrée des paramètres 


DEF C 

350 

Editeur de motifs - correction 


GOSUB "Par 

880 

Placement des paramètres dans la fenêtre et les routine 

MOTIFS 

DEF V 

1100 

Visualisation des motifs 



1200 

Impression des motifs (chaîne hexadécimale) 


! GOSUB "& 

1280 

Conversion de V en hexa : G$ 


DEF K 

1400 

Sauvegarde sur K7 : motifs ou écrans plus LM 

COMMUNS 

GOTO"CH 

11600 

Choix : répétition ou sortie 


DEF F | 

11700 

: Affichage ou impression de la fenêtre du LM 


DEFS 

2000 

Création d'écrans - entrée des paramètres 


DEF M 

2100 

Editeur d'écrans - correction 


DEF A 

3000 

Animation des écrans 

ECRANS 

■.ï^vrS-1 

DEF B 

— rm— 

3100 

Affichage des bornes - aide au choix de l'adresse d'im- 
plantation des écrans en RAM 




APPEL 

RETOUR 

ROUTINES LM 

Sous-routines 


6310 

6346 

PIC&POC : place les paramètres dans les routines. 

MOTIFS 

6348 


AFFICHMOTIFS / pour un seul motif 

WAIT 


6350 

63C1 

/ pour tous les motifs 

INVERSECRAN 


63C2 

63CE 

WAIT : maintien l'affichage 



63D0 

640C 

INVERSECRAN : inversion vidéo 

WAIT 


640D 


CLEARAM / pour un seul motif 





/ pour tous les motifs 


llüSIHPil 

11SSS11 

iiisiiiiiiii 

RESTORAM : crée la grille RAM après inversion ou saisie par 




INPUT 



lllllll 

illli 

TEST : teste si le motif est vide 



6464 : 

6487 

GPRINTI& : affiche la commande 


COMMUNS 

6488 

il!! 

CONVERSHEXA : convertit en hexa : G$ 



64C8 


AFFICHECRAN/ pour un seul écran 

WAIT 


64D8 

liliiiiliiïSi 

/ pour tous les écrans 

INVERSECRAN 

ECRANS 

6530 

6567 

MEMORECRAN : sauve en RAM l'écran affiché ■ efface si 




l'écran est vide 



6568 

658E 

PIC&POC : place les paramètres dans les routines 


SUIVEZ LE DRAPEAU 

Suivant la valeur du drapeau (DR), quels sont 
les modules utilisables par la touche DEF ? 


DR 

MODULES 

OCTET-DRAPEAU 

0 

= , SPC, G, S, B 

&630 E = 0 
&630 F = 0 

1 

idem + 
C,V,Z,K,F 

&630 E = 1 

2 

idem (DR = 0) + 
M,A,K,F 

&630 F = 2 


Le seul END du programme se trouve dans le 
module "SPC" ou "Menu3". Les modules 
s'enchaînent entre eux ou rappellent le menu 
correspondant. Après un RUN, un CLEAR, 
repasser par les menus pour charger le drapeau 
DR et la chaîne SP$. 

MODE D'EMPLOI 

A la première utilisation, faire RUN. Ensuite on 
accède aux menus par DEF. On choisit le mode 
de travail : motifs ou écrans puis le module par 
la lettre indiquée (DEF automatique). 

Création de motifs : 

Il suffit de donner le nombre et la largeur. Le 
nombre d'octets disponibles pour le stockage 
est de 255 (&6201 à &62FF). La largeur doit 
être un diviseur de 30 car la cellule de base de 
l'afficheur est composée de 30 octets : 
Largeurs possibles : 1.2.3.5.6.10.15.30. 

Les paramètres sont stockés dans la fenêtre, 
ce qui permet de les rappeler après un CLEAR 
ou un changement de mode. Ces valeurs sont 
restaurées, si besoin est, dans les autres 
modules. 


Edition de motifs : 

L'afficheur est séparé en deux : à gauche un 
écran d'édition avec un gros curseur sous 
forme de pavé 4 x 4, à droite l'écran témoin qui 
répète le motif sur toute la colonne 5 de l'affi- 
cheur. Il est le témoin fidèle du contenu stocké 
dans la RAM. Un point clignotant représente 
la position du pavé de gauche. 

Si la largeur du motif est inférieure à 30, il y 
a affichage permanent sur la colonne 4 : 
en ligne 0 : du n° du motif 
en ligne 2 : du mode automatique "(" ou 
manuel ")" ou vide 

en ligne 3 : de la commande en cours de 

traitement 

Commandes : 

1 à 4 - 6 à 7 : Mouvements du curseur 
5 : Inverse l'état du point et mémorise en RAM 
( : Tracé automatique suivant le mouvement 
du curseur 

) : Retour au mode manuel (avec la touche 5) 
+ : Affichage du motif suivant 
- : Affichage du motif précédent 
* : Passe au motif suivant qui devient l'inverse 
vidéo 

0 : Motif suivant et branchement sur 
visualisation 

. : Effacement de l'écran et du motif en RAM 
, : Help ! 

1 : Saut du curseur : de 1 en 1 ou de 2 en 2 
: : Saisie d'un motif par INPUT : 

- par une chaîne (E$(0))en hexadécimal 

- octet par octet : en décimal ou hexa (avec 

&) 

ENTER Provoque la répétition 
; : Vision sur tout l'afficheur du motif créé 


Visualisation des motifs : 

Rentrer d'abord les paramètres pour l'affichage 

de la suite de motifs : 

le nombre de répétitions 

le temps d'affichage (WAIT) 

le drapeau d'inversion et éventuellement le 

nombre 

Par défaut, c'est-à-dire, une réponse par 
ENTER, il y a 3 répétitions, WAIT 2, et pas d'in- 
version vidéo. 

Après l'affichage, il y a une pause. Après 
ENTER, choisir R pour répéter ou S pour sortir. 

Impression des motifs 

Préparer l'imprimante, faire ENTER. Le motif 
sort sous forme de chaîne hexa comme dans 
GPRINT. Lors de l'impression, le motif est affi- 
ché car la saisie des octets se fait sur l'afficheur 
(&7000 et suivants) 

Création d'écrans 

Elle n'est possible qu'après un passage par le 
module définissant les variables bornes : 

B : Fin du BASIC 

W : Fin de la Zone 1 (avant le LM) 

U : Fin de la Zone 2 (après le LM) 

Ces variables permettent de tester la validité 
de l'adresse d'implantation des écrans. Lors de 
l'entrée de celle-ci, l'adresse de fin est affichée 
suivant le nombre d'écrans déclarés. 

Edition des écrans 

L'afficheur est toujours vide avec un point cli- 
gnotant au centre. C'est le curseur. Les com- 
mandes accessibles sont : les chiffres plus 
grands que 0, et les lettres jusqu'à S. 
Commandes : 

1 à 4 - 6 à 7 : Mouvements du curseur 
5 : Inverse l'état d'un point 
A : Tracé automatique (sortie par le 5) 

B : Tracé d'un parallélogramme. Sous-éditeur 
pour les coordonnées 

C : Tracé d'un cercle. Accès au sous-éditeur 
D : Ecran suivant en RAM (Droite) 

E : Effacement de l'écran (pas de la RAM) 

F : Parallélogramme plein. Accès au 
sous-éditeur 

G : Ecran précédent en RAM (gauche) 

H : Help ! (il y a de quoi s'y perdre I) 

I : Inversion vidéo sans mémorisation 
J : Saut du curseur : de 1 en 1 ou de 10 en 10 
K : Ecran suivant et branchement sur animation 
L : Tracé d'une ligne. Sous-éditeur 
M : Affichage d'un message. Sous-éditeur : + 
- pour le curseur, "," pour SML, "." point 
final 

N : n° de l'écran : nombre de bips 
O : rien 

P : Ligne en pointillé. Sous-éditeur 


Q : Quitter comme par un BREAK 
R : Rappel du contenu de la RAM 
S : Sauvegarde de l'écran affiché 
Sous-éditeur pour les coordonnées : 

Le point d'appel est une extrémité de ligne, un 
sommet du parallélogramme ou le centre du 
cercle. On définit l'autre point par cet éditeur : 
1 à 4 - 6 à 7 : mouvements 
J : Jump 

5 : Le deuxième point est le point courant. Sor- 
tie du sous-éditeur. 

Attention ! La mémorisation de l'écran ne 
s'opère que par les commandes K ou M uni- 
quement. Il faut donc sauvegarder l'écran avant 
de faire : D, G, H ou Q. 

Exemple de procédure : vous avez créé trois 
écrans, vous venez de les voir en animation et 
vous voulez modifier le second. 

• DEF M (ou DEF =, choix 2, puis module M) 

• Afficheur vide. Positionnement sur l'écran 1 

• Rappeler l'écran 1 par R et passer au suivant 
par K (mémorise de nouveau). Ne pas faire k 
tout de suite : vous blanchissez la RAM. 

• Rappeler l'écran 2 par R 

Ces deux dernières étapes (R, K, R) sont synthé- 
tisées par D. 

• Modifier puis sauvegarder (M ou K) 

• Sortir par une série de R puis K, ou D puis K. 
Attention ! Les commandes D et G tournent 
indéfiniment sur la grille RAM. Elles ne se blo- 
quent pas sur le premier ou le dernier écran. 
Animation des écrans 

Rentrer les paramètres (WAIT et inversion) ou 
faire ENTER. Après l'affichage, choisir comme 
pour les motifs. 

Bornes 

Visualise l'état des pointeurs-systèmes et 
charge les variables-pointeurs pour le module 
"S" . Il donne également la capacité en octets 
des deux zones libres de la RAM. 

MEM$ B C 

END Basic B B 


(END Variables) 


&6200 j W: fin de la 
' zone 1 (''Carte'') 


Routines LM : 


(END Variables)* 


Fin de zone &6C30 


U: fin de la 
zone 2 ("Ordin") 


Mémo K7 

Le branchement est automatique selon l'état 
du drapeau. Le module sauvegarde les données 
pour le mode qu'on vient de quitter : Motifs ou 
Ecrans. Ce qui est sauvegardé, c'est d'abord 
la grille de la RAM et également les routines 
LM correspondantes avec la fenêtre. Celle-ci 
est restaurée avec des valeurs standards. 
Comment réutiliser ces enregistrements ? 

• Motifs : Pour changer les paramètres, faire 
POKE &6300, ... (cf. ligne 980) puis CALL 
&6310. 

Pour visualiser, CALL &6348 

• Ecrans : Pour changer les paramètres, faire 
POKE &6592, ... (cf. ligne 3050) puis CALL 
&6548. 

Pour animer, CALL &64D8. 

Fenêtre 

Il y aura impression si la réponse est différente 
de ENTER. Le module se branche sur la fenê- 
tre voulue selon l'état du drapeau. Il y a d'abord 
affichage de l'octet-drapeau puis des paramè- 
tres. On peut utiliser ces résultats pour les enre- 
gistrements sur cassette ou pour vérifier après 
un laps de temps le nombre d'écrans ou de 
motifs stockés en mémoire. 

Composition des fenêtres 
Motifs : 

&630E : Drapeau (0 ou 1) - DR 

66300 : Nb de répétitions - R 

66301 : Nb de motifs (1 ou Q + 1 ) 

66302 : Adresse de la grille RAM (&6200) ou 
du motif en cours (octet bas - 1 ) 

66303 : Adresse de la colonne de l'afficheur 
(octet haut -1) -E 

66304 : Drapeau inversion (0 ou 1) - S 

66305 : Nb d'inversions -V 
&6306: WAlTn-W 

66308 : Nb de motifs sur 2 cellules de base 
de l'afficheur -N 

66309 : (Largeur -1) d'un motif - A 
&630A : (Nb - 1 ) de motifs -Q 
Ecrans 

&630F : Drapeau (0 ou 2) - DR 
&658F : (Nb-1) d'écrans Q 
&6590-91 : Adresse d'implantation - D 

66592 : Nb d'écrans (1 ouQ+1) 

66593 : Drapeau inversion (0 ou 1) - S 

66594 : Nb d'inversions - V 
&6595: WAlTn-W 

&6596 - 97 : Adresse de l'écran en cours - Z 
Divers 

&630B-0C : octets pour la conversion en 
hexa (V en G$) 

&630D : Drapeau pour la routine TEST (O ou 
la valeur du 1 er octet différente de 0). Décide 


de la reconstitution de I écran d édition à par- 
tir de l'écran témoin. 

Amusez-vous bien ! Et profitez de toutes les 
facilités offertes ! 

Daniel BRIANT 




ft E$t.0>*60 
<E 2:63C3?2 ï POKE 
B2> 5: POKE & 


R 80 R 4ï PR IN 



RSOR 30 ï PRI 
PAINT 1 ' ; CUR 
PR INT ===== 


ï 3Fs PR INT ■■■ 

riant 11:35 

30! CALL &63B0î BEER 1: 
Il : GPR I HT 

S ! PAUSE "T*-f+-f 
- PAINT 7*7+7 
RSOR 31! .PAUSE "(I 
Hot s fs tf ! * CURSOR 55 
ï P A U S E v < 2 > E c r a n s " 
! CURSOR 79! PAUSE " 
(3) Sortie ? 
130! SP$=" 

* ! POKE &63B2ïl! 
POKE &é3C3?l! HAIT 0 
140! • NenuB 
150! CALL £6330! M= V 
INKEY* !M$= M Men 
STR$ <M*<M<4))5 
GOTO rif 
160:" Menu 1 

170: CLS ! PR INT 1,1 G Cre- 
ion MOTIFS"! PR INT 
C Correct! on" ! 

PR INT ‘‘V Visualisât! 
o n M ï PR INT "Z Lïipres 
s i on 

130: DR= PEEK &630E: 

GOTO "BEF 
190! "Menu 2 

200! CLS i PR INT "S Créât 
ion ECRANS"! PR INT " 
B Bornes"! PR INT "M 
Mod i f i cat i on" : 

PR INT "A Animation 
210s BR® PEEK S: 638F 
220! "BEF" CURSOR 20! 

PR INT "K K7" : 

CURSOR 4Ü PR INT "Fe 
netre": CURSOR 65: 

PR INT "= Menu0": 
CURSOR 89: PR INT "SP 
C Fin 








1 220: CLS : NAIT g : 

PRTNT "-> Impressi 
on MOTIFS"! 

CURSOR 72: PAUSE ” 
PP INT ON !" ! 

GOSUB " WAIT 
S. 230: U=&7000, R=1 , B=1 , E= 
&6F»0=5j W=1 » S=Q j V= 
1! GOSUB "Par 
1240: FOR K=0 TO PEEK £6 
30A: LPRINT "Motif 
■ "»K+1: GOSUB " 
PM": CALL £6348 
1250: FOR L=U TO U+ 

PEEK £6309: V= 

PEEK L: GOSUB "S": 
i-PRINT G$»: N EX T l 
1260: LPRINT : NEXT K: 
GOTO M$ 

1290: "S" POKE £630B, 

INT <V/256),V AND 
255: CALL £6488: 
RETURN 
1400: "K 

1410: CLS : PAUSE "-> Me 
mo K'7" : CURSOR 72: 
PAUSE "K? ON !": 
GOSUB * NAIT ": 

CLS 

1420: ON DR GOTO 1440,14 
60 

1430: GOTO "Err 
1440:CURSOR 84: PAUSE " 
CSAVE MOTIFS* :R=3, 

D=l+ P£tK 8630 a,£_ 

&6F, 0=5, W=3, S=0, V= 
i ! GOSUB "Par 
1450: CSAVE M"M"ÜS ; 6200,S 
64C4: GOTO "= 

1460: CURSOR 84: PAUSE " 
CSAVE ECRANS”:D=i+ 
256* PEEK £6591+ 

PEEK' £6590, Q=l+ 

PEEK £658F 

1470: POKE 16592,8,0,1,5 
: CALl £-6568 
1480:IF D>&6598 LET X=£ 
63C2, Y=D+600*Q 
1490: IF DC&6200 LET X=B 
: Y=£6597 

1508: V=X': GOSUB "£»: 

CURSOR 56: PRINT » 

De £"1G$! 

1510: V=Y: GOSUB "S": 

PRINT » a £"!G$ 

1528: CSAVE M*E*,*X,Y: 

GOTO "= 

1600: "CH 

1610:CURSOR 90: PRINT " 

R / S 

1620:1= ASC INKEY* : 

IP K 82 OR I >83 
GOTO 1620 
IP 1=82 GOTO R 
5 IF 1=83 GOTO M$ 

: "F 

! CLS : CURSOR 79: 

INPU7 " LPRINT 0/e 
nter: "j 1 $: print = 
LPRINT 

1 CLS : WAIT 0: 

PRINT "-> Fenetre 
ON DR GOTO 174 
0,1750 


1630 

1640 

1700 

1710 


1720 


1730:PRIHT = PRINT : 
GOTO "Err 

1740: PRINT "MOTIFS :": 
PRINT "630E : 01" 

• X=£6300, ¥=£6309: 
GOTO 1760 

1750: PRINT "ECRANS 

PRINT "630F : 02" 

! X=£653F,Y=£6597 

1760: FOR L=X TO Y STEP 
3 : V=L s GOSUB "£": 
PRINT G$î" : " ; 


1770 

'■•FOR K 

=L TO L+2: 

v= 


PEEK 

K: GOSUB * 

t? V 1 


PRINT 

" ï G$î : 



NEXT i 

<■' PRINT " 

>.* * 


NEXT L 


1780 

: PRINT 

= PRINT : 



GOSUB 

" WAIT ": 



GOTO r« 

!$ 


2980: 

! V S 



2018: 

: CLS : 

PAUSE »-> 

Cr 


e a. t 1 on 

ECRANS": 



INPUT 

"Bornes 0/ 

‘en 


ter ? 

",‘I$:M$="S 

; ; 


GOTO M 

B 


2820: 

CURSOR 

48: INPUT 



Nombre : ">Q,"Adre 
sse: ";d 

2030 : M$= " Menu2 " , V=D+600 

*0: GOSUB 

CURSOR 72: PAUSE " 
Jusau a: S"iG$: 
GOSUB " WAIT 
2040: D=D-1 , 3=8-1 , X=£620 
0,Y=£6593 

2050: IF D>X AND DK Y 
GOTO "S 

2060: IF B<X IF V)W OR D 
<B GOTO "S 
2070:1F D)Y IF V>U 
GOTO "S 

2080: DR=2: POKE £653F,Q 
■>D AND 255, INT (D 
/'256>: POKE £630F. 
DR 

2100: "M 

2110:1F DR<>2 GOTO "Err 
2120:CLS : WAIT 0: 

PRINT *-> Editeur 
ECRANS": CURSOR 89 
: PAUSE "Help: H 
2130:D= PEEK £6590+256* 
PEEK £6591,8= 

PEEK &658F,B=150 
2140:POKE £6592,1,0,1,0 
! CALL £6568 
2150: FOR K=0 TO 3 
2160:CLS :X=74,Y=15,J=1 
2170:F= POINT <X,Y>: 

iulûîT *=; 

2î80:PSET <X,Y),X:I= 

PSC INKEYÎ 

2190:1F I < 49 OR l>g 3 
OR < I >57 AND I<65) 
GOTO 2180 

2200:WAIT 0: PRESET fX, 

Y>: IF F PSET <X,Y 

) 

2210:1F I >64 LET 1=1+32 
2220:1F 10107 GOSUB 
CHR$ I: GOTO 2170 
2230: CALL £6530: NEXT K 
: GOTO "A 


2250: "Sous-psm 
2260: "a* BEEP 1 
2270:PSET <X,Y),X 
2280:1= VAL INKEY$ : 

IF 1=0 GOTO 2280 
2290:1F 1=5 RETURN 
2300:X=X+( INT <I/3)=I/ 
3>-<I=l OR 1=4 OR 
1=7) , Y=Y+ < I < 4 ) — < I > 
6): GOTO 2270 
2310: "b" GOSUB ”XY": 
LINE (U, V)-(X,Y),X 
»B: PSET (U, V): 
RETURN 

2320: "c" GOSUB "XY":U=C 
U-X><-'2+(V-Y)ft2,R= 
INT S8R W 

2330: FOR L=0 TO R STEP 
2/R 

2340: S= INT SQR <W-L*L> 

, X=U+S, Y=V+ INT L, 
G=U-S,H=V- INT L 
2350: PSET (G, H): PSET ( 
G, Y): PSET <X,H>: 
PSET ( X , Y ) . 

2360:1F POINT <X,Y)=-i 
AND POINT <G,H)=-1 
LET L=R 

2370: NEXT L:X=U,Y=V: 

BEEP l: RETURN 
2400: "d" IF K=Û LET K=- 
1 

2410: "9" IR 1=103 AND K 
=0 LET K=Q+1 
2420:K=K+<I=100)-a =103 
): GOTO "r 

2430: *e* CLS : RETURN 
2458: "f" GOSUB *XY": 

LINE (U, V)-<X,Y),X 
>BF: PSET < X > Y ) : 
RETURN 

2500: "h" CLS : PAUSE 
> H E L P ! 

2510:PAUSE "A: Automatic 
ue B: LINE ,B": 

PAUSE "CtCercle D: 
Ecran suivant": 

PAUSE "E: CLS F: 

LINE ,BF": GOSUB " 

SP 

2520: PAUSE "G:£cran Pr e 
c I: Inversion": 

PAUSE "J:Jump K 
: NEXT -Sort ie": 

PAUSE "L: LINE M:M 
essase": GOSUB "SP 
2530: PAUSE "N: Numéro bi 
p PsPoint i I le": 

PAUSE "Q:Quitter R 
•Rappel écran": 

PAUSE "S: Sauver ec 
ran 

2540: GOSUB "SP": GOTO " 

r 

2600: " i " CALL S63D0: 

RETURN 

2610: "j"J=10*<j=i)+(j =1 
0>: BEEP l: 

RETURN 

2650:"| " GOSUB "XY": 

LINE (U, V)-<X, Y) , X 
: RETURN 

2700: "m”P=0: WAIT 20: 

GPRINT : WAIT 3 



2718! PSET <X»Y>»X:I$= 
INKEY$ ï IF 1$="" 
GOTO 2710 

2720! NAIT 0: PRESET CK» 
Y): IF 1*="." 

BEEP 1! RETURN 
2730: IF 1$="»" BEEP HP 
=32 *<P=0>: GOTO 27 
10 

2740! IF 1$=*-* LET X=X- 
6* CK >5) : GOTO 2710 
2750! IF !$="+" GOTO 277 
0 

2760: GCURSQR <X»Y):C=5* 
(P+ ASC I*)+fc7FEE: 
FOR L=C TO C-4 
STEP -l: GPRINT 
PEEK L5 : N EX T Lî 
GPRINT 0 

2770: X=X+6*(X< 138): 

GOTO 2710 
2800: "n" BEEP K+i 
2810: "o" RETURN 
2828: "p" GOSUB "XY" : 

LINE <U»V>-<X»Y)»X 
» 43690: RETURN 
2830! "«T STOP 
2840: "r "Z=B+688*K: 

POKE &6S96» Z AND 2 
55» INT (Z/256): 
CALL :2c64C8: 

RETURN 

2850: "s" CALL £6538: 
RETURN 

2900: *XY ¥ U=X»V=Ys HAIT 
3: BEEP 1 

2910: PSET CK»Y)»X:I$= 
INKEY$ 

2920ÜF I$=",T" BEEP l:J 
=10*( J=1 )+< J=18) 
2930ÜF VAL I$=0 GOTO 2 
910 

2940ÜF VAL I$=5 
RETURN 

2950: PRESET <X»Y>: IF F 
PSET CK» Y) 

2960: GOSUB I$:F= POINT 
CK» Y): GOTO 2910 
3000: * A 

3010: IF BR< >2 GOTO "Err 
3820: CLS : PAUSE w -> An 
i mat ion ECRANS ":S= 
0» V=3» N=5 

3030: INPUT " NAIT : "»E 
: IF E>-1 AND E<30 
LET H=E 

3040: INPUT "Inversion 0 
/l: "»S:S=S=l: IF 
S INPUT v Nb in ver s 
ions: "»V 

3850: POKE &6592»1+ 

PEEK &658F » S ? V » !4 : 
CALL &656S 

3860: CALL &64D8: GOSUB 
" NAIT " : R=3060: 
GOTO "CH 
3100: "B 

31 18: CLS : NAIT 0: 

PRINT "-> B O R N 
E S": PAUSE "Routi 
ne LM &6200-Ê6597 
3128:14=256* PEEK &6F08+ 
PEEK &6F07»V=M: 
GOSUB " & " : PAUSE " 


ENB Variab &’5G$ 

3130:B=256* PEEK &6F84+ 
PEEK &6F83»V=B: 
GOSUB PAUSE " 

ENB BASIC & ¥ 5G$: 
GOSUB "SP 

3140: PAUSE v MEM : "» 
MEM »" MEM $= *5 
MEM $ 

3150: IF MEM *="C* LET U 
=&6C38» H=N 

3168: IF MEM $="B" LET U 
=14» 14=66200 

3170: PAUSE v Ordin: "»U- 
66598: PAUSE "Cart 
e: " » N-B: GOSUB "S 
P": GOTO M$ 


6310 8402FFDB500262BB: EF 
6318 24115252241 15652: B6 
6328 241 15A52241 16652: CE 
6328 241 16A52241 1C352: 3B 
6338 241 1A852241 1B252: 80 
6338 2411725224117552: F5 
6348 1 17C521 19752374B: 5B 
6348 186382571 15A524B:B6 
6358 900201DB8B0201BB: D7 
6358 848285BB500262BB: F5 
6368 3602FFBB58026FBB: FE 
6368 500205BB890282BB: 9A 
6378 3A020CBB82043424: B1 
6378 262F03028434052F : C6 
6338 024B290FC9380506:91 
6383 86060629 1C0381 82 :5B 
6398 8486144929290284: BF 
6393 34042F827363C202: 83 
63A8 0867812314345992:13 
63A3 BB855993BB7863B8:B2 
63B8 925984BB935985BB: 96 
63B3 CB295A985943BB29: 7E 
63C0 6C3702003402FF34S0E 
63C3 4EFF2F032F88374B: 3A 
63D0 910285DB8402FFBB: B3 
63B8 50826FBB888205DB: 06 
63E8 890282BB8A023CBB: 8B 
63E3 3303FF2445534B29: B5 
63F8 07C9330584040404: 1D 
63F3 2915038102848414:60 
6480 4929227363C29159: IB 
6408 43BB293737186302: 2A 
6418 5742106422521863: F4 
6418 0957186425524B4B: E5 
6428 10620023080A1F37: F5 
6428 3402FFDB500277BB: 04 
6438 1063025758DB5082: 49 
6433 62BB186309573424: 68 
6448 262F833710630257: 5B 
6443 84BB500262BB1863: 61 
6458 09574238DB246780: 98 
6453 280449290710638B: 25 
6468 52374B4B8402EABB: 6E 
6468 50827FDB500263DB: 3C 
6478 508276BB106CB957: 2F 


6478 3404040404042F06:7B 
6438 02843425262F8337:EE 
6438 84028ABB500263BB:FB 
6498 5002C7BB58026CBB:8B 
6493 508202BB02F52624:70 
64A8 67003S8A34587864: 1 1 
64A3 B45B7364B4244929: 35 
64B8 8C232637640F3475: A8 
64B3 8A3A065B74372C04:30 
64C8 5B743826374B4B4B:43 
64C3 1 8659657 1864BE52: 86 
64B0 18659757 1864E252:0B 
64B8 3B8202BB34029FBBi6A 
64E8 580265BB3602FFBB ! F4 
64E3 58026FBB500285BB : CE 
64F0 390282BB8A023CBB : 8B 
64F8 24264B2904C93805:C8 
6588 8606060629110301:56 
6588 828486 144929 1E78: 23 
6518 63C2020067012814:CB 
6518 845992BB355993BB:96 
6528 7863B0925984BB93:38 
6528 5985BBCB2949374B:7A 
6538 3402FFBB50826FBB : FC 
6533 1065965758BB1065:02 
6548 975758BB500205BBÏ4B 
6543 890202BB3A823CBB:0B 
6558 24264B2984C93305 : C8 
6558 04048404291 18301 :4E 
6568 0284841 44929 1E37:E5 
6563 34023FBB500265BB:82 
6578 241064BE52241064:60 
6573 E252241064BA5224: IC 
6588 1 8651 35224 1863B2: 43 
6538 52241863C3523712T47 


IABY 3DIM 


De pari le litre, il est aisé de 
comprendre que ce programme 
en Basic va vous transporter 
dans les dédales tridimension- 
nels d'un labyrinthe inextrica- 
ble. Une représentation graphi- 
que en 3D est complétée sur 
l'écran de votre PC 1 350 par un 
plan permettant de vous situer. 
Et ceci sans vous dévoiler le che- 
min vers la liberté. 

Avant de vous perdre dans les multiples pas- 
sages, il vous faut entrer ce programme dans 
votre PC 1 350 muni d'une carte. 

L'exécution de la commmande RUN permettra 
la création aléatoire du Labyrinthe en à peu près 
1 minute. 

Vous remarquerez que les grilles interdisent 
tout passage. Ne vous cognez donc pas aux 
murs. Les touches 8 6 4 et 2 donnent respec- 
tivement les directions : Avant, Droite, Gau- 
che et Arrière. N'oubliez pas de bien vérifier les 
LINEs, GPRINTs, CALLs et autres datas de peur 
d'obtenir une représentation faussée. 
Emportez aussi quelques provisions de survie, 
Et Bonne Sortie... 

Jean-Marc DREVET 


•14 Ai ; 8 - - RhNBüH : 
GCURSOR (38? 29) ; 

50 SU B 958; LINE <28? 
1 1 ) - ( 1 2 2 ? 1 9 ) ? N ? B F : Q = 
- 18 : 14=- 10 

62 LINE <28? 1 1 )-<32? 7) : 
LINE -<118? 7); LINE 
-“<121 ? 10) 

1 8 : G C U R S 0 R < 7 7 ? 3 0 > : 

GPR 1 NT 0E 1 1 1 1 88 1 888 
88 1 2 1 F 1 88887851 F88 1 F 
1 5 1 F08 1 F 1 4 1 C00800888 
? 

14: GPR INT 1715130001 1F 
0 1 00 1 F 1 5 1 1008F180F09 
1 F î 5 1 1 8098 1 F 1 1 1 F00 1 F 
111 Î0001 1F01 j 

15: GPR INT ' ! 00tP151 10001 
1 F8 1 80 1 7 1 5 1 338000 


28 : D I fl A ( 1 5 ? 1 4 ) : FOR X= 
0 TO 15 

38: FOR Y=0 TO 14 

48: IF X=8 OR K =15 OR Y= 
8 OR Y = 1 4 LET Z=8: 
GOTO 100 

8ü:Z= INT < RND (8)*9)+ 
■* 

108: ft(Xî Y)=Z: N EX T Y: 
NEXT ?<; : X = 1 : Y = 1 4 : A C 1 ? 

1 4 ) = 1 1 : A < 1 5 , 1 ) = 1 0 : A < 
1, 13) =5 

1 15: CLS : GûSUB 680: 

LIHE < 18 j 8) -(60 » 38) , 
B: PRESET (73 s 30): 
PSET <72! 31): PSET < 
74! 31): PRESET <102! 
3): PSET < 1 03 ! 2 ) 

116: PSET <103! 4): GQ5UB 
900: GOSÜB 210 

120: GCURSOR <132! 15): 

GPR INT "417F41413E08 
838159890F": GOSUB 7 
88 

121 : CALL &84B3: CALL 8,12 
04: 11= peek I6F57: 

IF 1*1 < >58 AND t1< >52 
AND M< >54 AND MC >56 
THEN 121 

168: IF 11=56 AND L=1 
THEN 758 

178: IF M=54 AND L=2 
THEN 758 

171 : IF M=52 AND L=3 
THEN 758 

172: IF 11=52 AND P=3 OR M 
=54 AND L=2 THEN 758 

173:IF M=56 AND L=1 OR fl 
=54 AND P=2 THEN 758 

174: IF M=56 AND L=1 OR fl 
=52 AND P=3 THEN 758 


175 

IF 

11=50 

LET 

Y=Y+1 : 


GOSUB 790 


176 

IF 

11=56 

LET 

Y=Y-1 : 


GOSUB 788 


177 

T r- 
i l 

!'! = 54 

LET 

X=X+l: 


G 0 1; 

>UB 7’ 

’0 


178! 

IF 

1*1=52 

LET 

X=X-ls 


GOS 

> U B 768 


208; 

IF 

X<8 LET > 

:=x+i 

201: 

IF 

X >15 

LET 

X=X-1 

292: 

IF 

Y<8 LET Y 

'=Y+1 

203: 

IF 

Y >14 

LET 

Y= Y - 1 


289 : L I NE < 1 1 , 1 ) - < 59 , 29 ) ! 
R, BF 


2 1 8 : Z= A < X ! Y ) : IF 2=0 
GOSUB 540: GOTO 128 
220: if- Z=i GU8UB 580: 
GOSUB 538: GOSUB 510 
: GOSÜB 520:L=2:P=3 
230: IF Z=2 GOSUB 550: 
GOSUB 580: GOSUB 538 
: GOSUB 560: GOSUB 5 


70 : L= 1 : P=8 

248: IF Z=3 GOSUB 588: 
GOSUB 518: GOSUB 538 
: GOSUB 570:L=3:P=8 
250: IF Z=4 GOSUB 530: 
GOSUB 528: GOSUB 588 
: GOSUB 568: L=2: P=8 
268: IF Z=5 GOSUB 580: 
GOSUB 538: GOSUB 568 
: GOSUB 578: L=0: P=0 
278: IF Z=6 GOSUB 530: 
GOSUB 520: GOSUB 500 
: GOSUB 568: L=2: P=0 
288: IF Z=7 GOSUB 580: 
GOSUB 510: GOSUB 530 
: GOSUB 570: L=3: P=8 
298: IF Z=3 GOSUB 538: 
GOSUB 528: GOSUB 558 
: GOSÜB 580: GOSUB 5 
60 : L= 1 : P=2 

380: IF Z=9 GOSUB 580: 
GOSUB 518: GOSUB 550 
: GOSUB 530: GOSUB 5 
70 : L= 1 : P=3 

305: IF Z= 1 8 GOSÜB 308: 
CALL &04E3 : GOSUB 78 
8: CALL & 1 2 0 4 : GOTO 
5 

387: IF Z=ll GOSUB 850: L= 
0 : P=0 : GOTO 128 
310: LINE <20! 25)- <50! 25) 

: LINE <30! 1 8 ) - < 40 » 2 
8 ) ! B : LINE <20» 5)-<5 
0,5) 

498: GOTO 128 

580: LINE < 10, 38)-(20,25) 

: LINE — < 20 , 5) : 

LINE -<18, 0): 

RETURN 

510: LINE <20, 5)-<30, 18) : 
LINE <30, 28)- <28, 25) 

: RETURN 

520: LINE <40,20)-<50!25) 

: LINE <50,5)-<40, 10 
): RETURN 

530: lINE <60, 30) -< 58, 25) 

: LINE -<58, 5) : 

LINE -(60,8) : 

RETURN 

540: FOR 1=15 TO 55 STEP 
5: LINE < I , 1 ) - < I , 29 ) 

: NEXT I : L= 1 : P=0: 
RETURN 

550: FOR 1=32 TO 38 STEP 
2: LINE ( I , 1 1 )-( I , 19 
): NEXT I:’ RETURN 
560: LINE <30, 20)-<20,20> 

: LINE <20, 5) -< 38, 10 
): RETURN 

578: LINE <40»20)-<50,20> 

: LINE <58,5)-<40, 10 
): RETURN 

680: FOR 1=78 TO 182 


STEP 2: LINE (I)8)-( 
1)39)! NEXT I 
610: FOR 1=0 TO 30 STEP 2 
: LINE (70 » I )-( 102) I 
): HEXT l: RETURN 
700: PRESET ( (Q+8+1 )+70) 14 
+14+1 ) : PSET ( (X+X+l ) 
+70) Y+Y+1):Q=X:W=Y: 
RETURN 

750: GCURSOR (135)25): 

GPR INT "80030159090F 
": GOTO 121 
760: GCURSOR (135)25): 
GPRINT '•'081C3E830803 
* : RETURN 

770: GCURSOR (135)25): 
GPRINT "0888083E1C88 
": RETURN 

730: GCURSOR (135)25): 
GPRINT "0004067F8684 
": RETURN 

790: GCURSOR (135)25): 
GPRINT ‘'0010307F3010 
": RETURN 

800 : GCURSOR (28)12) 

801: GPRINT ''‘170017000800 
1F141C001F0B17081F05 
1F000F100F001F111F00 
0800178017'' 

884: GCURSOR (18)23) 

805: GPRINT "6F4949497B08 
7F4141417F807F091929 
4F8003017F0 103006341 
7F4163807F49494163": 
RETURN 

858: GCURSOR (18-19) 

855: GPRINT "7F4949416308 
7F0408107F8803017F01 
03007F8919294F007F49 
494163007F49494163" : 
RETURN 

908: GCURSOR (65)31): 
GPRINT M 705444": 
GCURSOR (186)6): 
GPRINT "5C5474007C44 
7C087C345C00047C0400 
7008705444" : RETURN 
950: GPRINT " 1F8507001F05 
1F8001 1F81001F001F15 
1 1001F81 1F0001 1F0100 
1F151 100191513000000 
" ! 

970: GPRINT " 1F181F001F01 
1F001F 151 10000001 F02 
1F001F001F81 1F801F10 
1F8081 1F01081F 151 100 
V ÿ ■■ 

975: GPRINT "000817151D08 
10000F100F0010001F05 
070010" 

998: RETURN 



GESRCHE 


Cette fois-ci, nous vous propo- 
sons un utilitaire entièrement en 
Langage Machine pour les PC 
1350 + 16 Ko. Il s'agit d'un 
petit gestionnaire de fiches sur 
4 lignes. Son utilité est évi- 
dente, pour se constituer par 
exemple un répertoire télépho- 
nique. Le LM lui confère une 
rapidité étonnante pour la 
Recherche, l'Annulation ou la 
Création d'une Fiche. 

Une fiche comprenant en moyenne 40 octets, 
celà nous laisse avec 1 6 Ko, 360 fiches compte 
tenu de l'implantation mémoire. Le programme 
pourra se rentrer à l'aide d'un utilitaire, comme 
celui donné pour OLPHOUS dans notre N° 13. 
Vérifiez-le, puis mettez-le sur K7 par : CSAVE 
M « GESFICH » ;&2FE0,&33A3. 

Une fois dans le PC, le programme se décom- 
pose en 3 parties : 

• De &3030 à &33A3, on a le pgm en lui- 
même. 

• De &33A3 à la var. X, on a le contenu des 
fiches. 

• De &2FE0 à &2FFF, on a 30 octets relogea- 
bles qui constituent un pgm donnant dans X 
l'adresse de fin de fichier. 

L'adresse d'exécution est : &3030. Donc, 
après avoir allumé la machine, tapez CALL 
&3030. Un Menu apparait : 

Tapez : 

R pour une Recherche 
I pour une Inscription 
L pou r obtenir une Liste complète. 
iBRKI ou OFF permettent de sortir de GESFICHE. 
Voyons donc les différentes options : 

|R] : Recherche de fiches . 

Introduire par exemple le Nom, puis |ENTERj le 
pgm va rechercher toutes les fiches répondan- 
tes au critère retenu. Par Nom, on entend suite 
de lettres. SH donnera la fiche SHARPENTIER 
et la fiche SHARP. Tandis que S donnera en 
plus, la fiche SAM. Gn peut corriger avant l'ap- 
pui sur |ENTER| par une des touches de curseur. 
Une fois la première fiche affichée, nous avons 



plusieurs sous-options : 

[Jjpermet de voir toutes les autres fiches, une 
à une, correspondantes au critère de recherche. 
[Jjpermet de revenir au début sur la première 
fiche , pour réitérer la recherche. 

[ÇLS]permet d'effacer la fiche affichée par le 
biais d'un code secret. Si mauvais code, retour 
au Me nu. 

|SHIFT[|CLS| = CA efface tout le fichier grâce 
à un code évidemment. 

Toutes les autres touches accèdent au Menu. 
Effacement et Code Secret : 

Par exemple, on a une fiche SHARPENTIER à 
effac er. On procède ai nsi : 

[R|puis [SHARP ENTIER | la fiche s'affiche donc. 
Pour détruire cette fiche : 

ICLSIEHIFO cÈi 
ISHIF lUTI et le Menu apparaît. 

Le code est donc ^ et ) et est conservé en 
&31E1 pour A et en &31E7 pour ). 

On fait de même avec CA, pour détruire l'en- 
semble du fichier. Les codes sont identiques 
et stockés en &32F6 pour ^ et &32FC pour ). 

ATTENTION : 

Des codes différent s peuve nt être définis pour 
CLS et CA. Le m odelSHIFTl s'utilise en bascule 
comme le mode |SML| sous basic. 

H]: Inscription d'une fiche. 

1. Nom... prénom... (16 car.). 

Pour chaque fiche, nous avons 3 rubriques : 

2. Message... adresse... (47 car.) 

3. Téléphone... (16 car.) 

A la première ligne, entrer le Nom etc puis 
[ËNTËR] 

Le curseur se trouve alors sur la seconde ligne. 
In troduire le Message etc. sur la 2 e e t 3 e ligne 
et |ENTER| Idem pour la dernière ligne, ! ENTER) 
Une faute de frappe se corrige comme ultérieu- 
rement. Si les rubriques 2. et/ou 3. ne doivent 
pas con tenir d'informations, une pression sur 
lENTERl passe à la suite. D'où gain de place. 
LJ: Liste des fiches. 

On y accède soit par le Menu par appui suiffl 
soit en Recherche après la dernière fiche trou- 
vée. Les commandes sont identiques au mode 
R, à l'exception de la touche[T]qui revient au 
Menu général. 

SAUVEGARDE 

Pour connaître la dernière adr esse du f ichier, 
donc sa Fin, faire CALL &2FE0 | ENTËFÎ1 puis X 
ENTERl Apparaît alors une valeur qui est 
l'adresse de Fin. 

On sauve le fichier par : CSAVE M 

« FICHIER » ; &33A3, X IËNTËRI 

Alors que le pgm se sauvegarde par CSAVE M 


« GESFICH » ; &2FE0, &33A3 en ayant pris 
soin de POKER 255 en &33A3. 

CONSEILS : , „ ûc 

Mettre en mode Réserve les sequences 

CALL &3030® 

Ev’Ser^e 1 mettes lettres minuscules dans 
le Nom lors de la création d'une fiche, car pour 
une Recherche A est différent de a. 

Les fiches sont contenues entre les adresses 
&33A3 et &6C00 au maximum. Au-delà de 
&6COO, le pgm refuse les inscriptions et répond 

De &2030 à &3000, vous avez 4000 octets 
de Basic disponibles. 

ne s'arrête pas au répertoire de Téléphoné. 
Voilà pou, aujourd'hui et 


2FE0 03330250E2822467: 77 
2FES ' FF2904845998DB85S01 
apprêt 5999BBF1B0106C40S20 
T?F3 9000071937F20437:14 
3080 28522965636865(2:00 
3088 6368652849296E73:0B 
3010 6372697074696FbE:b3 
3813 234C296973746520: rt 
3020 2063686F6v7820aF- 9 h 
3023 205F20506C79313E:EB 
3830 FE0C02000330E297: B3 
3038 036DE2B502003424:bB 
3040 262F0386700B020C! o9 
3048 3424262F03700B02-.4B 
3050 063424262F037017-.3D 
3053 020B3424262F8388S45 
3860 600010788FD50402S52 
3068 04T8B2B6F204b75Z! Bi 

3070 380E6749387Eb74b! jF 
3078 38E46700291 13773: 7b 
3000 32707F31B5320 (0i : 1^ 
3088 6BE2B52443342426 "■ c.9 



^093 342426 ^^^" 

3000 24433424262F0300: 1 < 
3000 0184107338198360:99 
30B0 0010788FB5040204:Fb 
30B8 78B2B6900089 l03i : B l 
30C0 30l8901®T968i’3F2!U^ 
30C8 046702399F 10788B: 58 
30B0 3400011367043814:54 
30B8 6785290B2467FF7E: 48 
30E0 3lB567FE2989783i! 2t 
30E8 972B6803330250Ea.- -» 
30F0 822B0C783200A010 ! ^ 
30F8 7881577507670039:60 
3100 B0BBB48011800201: 13 
3108 521 1SFB501025F78: 01 
3110 E549F20467 183020 : FB 
3113 73E549 1078815767 : bB 
3120 17380542522B191 1 : 3F 
3128 8057670239200202: 9B 
3130 521181B4002B2967:75 
3138 0B3325022073E549: ix 
3140 1078315767003805: 04 
3148 43522B3E1 1305767: 4F 


3150 0139450201521181:66 
3158 0217522B4F2C5701: 0B 
3160 10783157BB1 18057: iS 
3168 6702280370180220: 3E 
3170 78E5491078800203:B3 
3178 5273321902107881:00 
3180 57758.7BB03338250S36 
3188 E2822467FF290405: 20 
3190 F41402FE2602070bi3A 
3198 6BE297007832C034: 7E 
31A0 0217BB017832C084: 3B 
3108 024EBB027832C002: 43 

31B0 FF26793307,8ii4u.CB 
31B8 1030C9023752(8ü-iF 
31C0 53670528 11 783340: Es 
■71T3 t>467FF290E 1030C 60 

31B0 7932E74B4B67037E: 14 

MB3 32EB67022910F204:B7 

31E0 675E29 1 6F204b7i9 : 8 h 
31E3 291C7831F07931CB:55 
31F0 7833402567FF386F: IB 
31F0 67FE2908052C5B22: 4b 

3200 FE0C0200036BE2B5: 13 
3208 024E26026F26026B: 7C 
3210 26023026733267B4 : bB 
3218 801l310207520i5F:4E 
itl., .tar-sodA? 1830: 55 



\Alà 

W0 6717391542522B19S86 

3238 022078E54910738i:Bl 
3240 576787392643522B:Eb 
3248 20670B29140220 i 8* ^5 
3250 E54937FE0C783085: 96 
^•?59 372C84F4 1 4783340 ï Lfl 
3260 242667FF29853702: 17 
3?63 0478B2B610738037: 4s 
3b?0 7832001073315775: (F 
3^78 0767002803B03743: Es 
3S30 80BB90106B871890: 1 i 
3288 106E6119116080BBÎ64 
3290 5203330250E28210: 4E 
3298 6E605780BB1 16190: 32 
3200 1811805734900424:66 
3bft3 C7280F502F062567: 0F 

32B0 FE380567FF29082C: FE 
32B8 0E2F012467FE3923: i8 
32C0 67FF2908B037FE0 C: h8 

3?C8 Bl37630038005926-i6 
32B0 433424262F033702:2 

32D8 0126022026$ i 3 i 04- El 
32E0 675E7C3030F20402: 99 
72E8 6752793030 1030C9:9B 
32F 0 826752F204675E29: 9F 
32F8 0EF2046729290710:B4 
3300 330302FF522B 1C87 : F9 
3308 636C7C3030F41925: BB 
3310 67FE290405F4140i!0l 
3313 FF26FE0C1033FE00:C0 
3320 049013106B209019:Fa 
3323 0204783330793030:64 
3330 0CEEF6F09E9EFAF6: 1b 
3338 EE0C73B2B6F20437-.2^ 
3340 10738B840001133 1 :E i 
3343 03330250E2823722: 45 
3350 FF10F54C49535445: 85 
3358 30207574696C6973-.F4 
3360 65722F6C6573206bîB0 
3363 6065636865732076:00 
3370 657274696361b 1 - 65'» 49 
3373 732E20434C532B63-.31 
3380 6F64653065666661 : 04 
3388 6365206669636865 :E7 
3398 2021 10454E544552: CF 
3398 20202B2B3E20204B : 65 
3300 454E55FF0B534841 : CE 


SCROLUNGS 

'WÊÊÊt* l, " m ~ 

I 

Pour les amateurs 
mes grapWqe»* sw MJM®. 
voici quatre routines en Lan- 
aaae HetWiie. Mes se «Hmgeyl 
d'effectuer les quatre types de 
scrolling sur l'écran graphique. 
Rappelons brièvement que le 
Scrolling consiste en une trans- 
lation du contenu de I ecransui- 
vont l'une des directions : Gau- 
che, Droite, Haut ou Bas. 

Les quatres routines peuvent être rentrées à 
l'aide du moniteur publie dans la revue 13, 
les checksums en fin de ligne (somme des 
octets modulo 256) permettent de vérifier la 
validité des codes introduits. On peut aussi les 
rentrer avec le ô combien ingrat, mais efficace . 

POKE adresse, code,.. Une fois cela fait et bien 
I fait, vous pouvez les mettre sur k7 en tapan ^ 

1 CSAVE M « SCROLLS » ; &5000, &521F 

ENTER. 

Nous voyons de suite que l'ensemble des rou- 
tines occupe 543 octets, et est implante en 
&5000. Ce qui oblige les non possesseur 
carte à reloger ces programmes^ est I but 
du programme Relogeur fourni. Pour ce faire 
rentrer les codes à une adresse quelconque (en 
fonction de vos besoins) du mome " t JJJ J® 

543 octets. Exécuter Relogeur en donnant la 
nouvelle adresse choisie et qui correspond a 
l’adresse réelle d'implantation mémoire. 

Enfin le dernier programme Basic joint, exploite 
les possibilités offertes par ces routines. Ce 
exemple permet de vérifier le bon fonctionne- 
m enTdes P pgms, et de comprendre une ac- 
tuelle utilisation dans un programme de votr 
cru RUN ou DEF G nous donne un affichage 
surprise. On indique la direction du Scrolling 
par les touches classiques : 4, 8, 6 et 2. La sai 
sie s'opérant par INKEYÎ, alors que l'arrêt se 
fait par appui sur ENTER. 

En cas de changement d'adresse d'implanta- 
tion, ne pas oublier de changer la valeur de X 
en ligne 270. 


J'espère que ces routines serviront de base à 
de multiples créations. Alors avis aux fanas du 
LM et aux autres II! 

J.L PHILOUZE 


100: BATA 10» "30F8FCFCFEF 
EFEFFEFC7C7C7C737878 
F8F1F1F1F3F3E3E1E0C 
110:DATA *C0E0F1F1E3E3C3 
C7C7C73787878F8F8F8F 
8FBFFFFFFFFEFEFC73 * 
120: DATA ''00000101030303 
07078707070707070707 
07070707030301 * 

130: DATA 37» "FFFFFFFFFFF 
F3080808080808080808 
080FFFFFFFFFFFF* 

140: DATA *FFFFFFFFFFFF87 
07070707070707070707 
FFFFFFFFFFFF* 

150: DATA *83038303030380 
00000000000030000000 
030303030303* 

160: DATA 61» *00000800000 
0C0F0F8FEFF3F1F3FFFF 
FFFFEF8E0C0* 

178: DATA *0088E0F8FCFF7F 
3F3F3F3C3C3C3C3C3D3F 
3F7FFFFFFFFEF3F0C030 

V 

130: DATA *02030303038000 
00000000000000000000 
00000103038303030303 
02 * 

190.-DATA 90» *FFFFFFFFFFF 
F8707070707070787870 
F9FFFFFFFFEFEFCF378* 
280 : DATA * FFFFFFFFFFFF00 
068E0E 1 E3E7EFEFFFFFF 
F7E7E7C38301 * 

210: DATA *03030303030388 
00000000000800010303 
03038303030302* 
228:DATA 1 16» *FFFFFFFFFF 
FF070707070707070707 
0F1FFFFEFEFCFCF8F0* 
230: DATA "FFFFFFFFFFFF8E 
1E1E1E1E1E1E1E1E1F1F 
0F8F87070301 * 
240:.DATA *038303030303’ 
258: *G* CLEAR : DIM A$<8 
>*80: MAI T 8: CLS : 
RESTORE 180: FOR J=1 
TO 5 

260:READ X: FOR 1=0 TO 2 
: READ A$<0>: 

GCURSQR (X» 14+I*8> : 


GPRINT Af ( 0 > : NEXT I 
: NEXT J 
270:X=&5000 

280: I=( VAL INKEY# >/2-l 
: IF I<0 OR I >3 
THEN 280 

290:CALL X+176*< 1=1 >+272 
* ( I =0 > +443* < I =2 > : 
GOTO 280 


RELOGEUR SCROLL 
(C> JL. PHILOUZE 

1 : GLEAR : INPUT *3DRES 
SE ?*»X 

2: FOR J=8 TO SUS 
STEP &110 

3: Y-=X+O0+J:- GOSUE 7: 
POKE X+&E+J» H» L: Y=X+ 
&9C+J: GOSUE 7 
4: RESTORE : FOR 1=1 
TO 4: READ A: POKE X 
+A+J»H»L: NEXT I 
5: Y=X+&F0+J: GOSUE 7: 
FOR 1=1 TO 3: READ A 
: POKE X+A+J»H»L: 
NEXT I 

6: NEXT J: BEEP 1: END 
7: H= INT ( Y/256 >:L=Y-2 
56*H: RETURN 
3: DATA îSî52»&5A»&62»'ist6A 
»â02»O5»£E2 


de bois en haut. 

5000 02FF036FE2829204: DD 
5088 348B021EDB785030: B2 
5010 CB290502E2030184: 65 
5018 142F11E436671129:0F 
5020 2037080000000000:57 
5023 0000000000000000:00 
5030 03008D24DB023F84:54 
5038 143E24DB02238415:5F 
5040 8F24DB023F841490: F7 
5043 24DB025E8415F414: 00 
5850 3D78509CDB94DADB: 15 
5058 8E78509CBB91BABB: 13 
5060 3F78509CDB92DADB: 15 
5063 9078509CDB93DADB: 17 
5870 91598D4492598E44:78 
5078 93598F4494599044: 30 
5030 0300078D5926823F : 57 
5088 36148E5926022336: 52 
5090 158F5926023F3614:FE 
5098 9059263783805966:88 
50A0 812303030059D2D1 : 2B 
50A8 3700000000000000:37 


de droite a saucé e 

50B0 82043482FF036FE2: 8F 
50B8 82021C037SE27B24: 9E 
5000 267850F002FF036F: 51 
5003 E27D2C1282E20301: 35 
58D0 841424267850F002: 90 
50D3 E2030 1361 4831 D24: 04 
58E0 267850F0C329072F: 00 
58E8 1 CE43667 1 1 293E37 : 40 
50F0 823F8444S6442426: 1D 
50F3 8223344536452426:03 
5108 023F844436442426: 1D 
5108 025E844586453700: 2B 


de haut, en bas 

5110 02FF036FE2820204: DD 
5118 348B02ÎEDB785140:,C3 
5120 CB290502E2030 134:65 
5123 142F11E436671 129: 0F 
5138 2037000800000000:57 
5133 0000000008080000:00 
5148 03008D24DB023F34: 54 
5143 148E24BB02238415: 5F 
5150 8F24DB023F841490:F7 
5158 24DB025E8415F414: 08 
5168 8D7851 ACDB92DADB: 24 
5168 8E7S51 ACBB93BABB: 26 
5178 8F7851A0DB94DADB:28 
5178 907851 ACDB91DADE: 26 
5180 91598D4492598E44: 78 
5188 93593F4494599844: 38 
5198 0300073D5926823F: 57 
5198 36 1 48E5926822386 : 52 
51A8 153F5926823F3614: FE 
51 A8 9059263783015966:09 
51B0 8028038300595AD1 : 32 
51B8 3780000000000000:37 


de sauche a droite 

5108 02043402810370E2: 92 
5108 7D021E0373E2S225: Al 
51D0 27785280021E0378: 80 
51D8 E27D2C1202E20301 : 85 
51E0 8415252773520002: El 
51E8 E203013615031D25: 06 
51F8 277852000329072F: 13 
51F8 1CE436671 1293E37: 40 
5280 823F844486442426: 1D 
5288 0223844586452426:03 
5218 023F844436442426: 1D 
5213 025E844586453700: 2B 


;pc.vS& 


QUKXLM 


Quick-LM se veut être un éditeur 
de programmes en langage 
machine souple et efficace. Il 
permet de positionner les routi- 
nes LM n'importe où dans la 
mémoire libre, de passer d'un 
éditeur-assembleur à un 
éditeur-moniteur directement, 
de scruter tout le champ de la 
mémoire du PC- 1350, d'impri- 
mer les désassemblages et les 
dumps, d'écrire directement un 
pgm avec les mnémoniques du 
processeur ESR-H, de saisir les 
valeurs des octets huit par huit 
en hexadécimal... 


CONCEPTION : 

Le programme Basic est soulagé dans sa tache 
par plusieurs routines LM. Celles-ci peuvent 
être placées à l'endroit qu'on souhaite. En con- 
trepartie, la zone RSV est monopolisée par deux 
routines de conversion (hexa-binaire, et 
inverse), une table de jumps pour retrouver les 
routines d'après l'adresse d'implantation et une 
fenêtre de travail pour le LM. Les deux éditeurs 
sont conçus de façon interdépendante : les 
commandes sont presque toutes semblables, 
et on passe allègrement de l'un à l'autre par 
un simple point-virgule. Ils comportent diver- 
ses fonctions rendant la conception et la sai- 
sie de pgm en LM les plus aisés possibles. 
L'assembleur assure la saisie des instructions 
par les mnémoniques. L'écriture des paramè- 
tres peut s'effectuer de deux manières : 

• en hexadécimal directement 

• en décimal après un "-" 

Le moniteur affiche une ligne de huit octets 
avec l'adresse en tête, et un octet de contrôle 
à la fin (check-sum). La saisie peut se faire octet 
par octet directement ou par bloc de huit octets 
après un '('. Pour donner la même valeur à toute 
la ligne, on presse ')' puis on rentre la valeur 
désirée. 


CHARGEMENT : 

Charger d'abord le pgm Basic par un CLOAD 
"QUICKLM". Le reste y est intégré. Lancez- 
le par un RUN. Pour tourner les pages, il faut 
faire ENTER (un bip le signale). Le pgm 
charge ensuite le fichier des mnémoniques. 
Il est essentiel qu'il soit le premier fichier 
dans la mémoire, peu importe le mode (MEM 
'B' ou 'C'). Pour le chargement du LM, indi- 
quez une adresse, valide de préférence, puis 
complétez l'affichage : 

CLOAD M"" ; A puis ENTER. 

Reprendre la main par DEF S(suite), qui 
charge la mémoire RSV. 

MODE D'EMPLOI 

L'accès aux menus s'opère par un DEF = . 
On choisit le mode de travail : édition, 
impression ou affichage, puis le module. 

DES-ASSEMBLEUR : 

L'adresse courante (K) est affichée, puis le 
programme attend une éventuelle nouvelle 
valeur. SHIFT étant allumé, il suffit de com- 
mencer à presser '&'. Pour prendre l'adresse 
courante, il faut deux ENTER. Pour l'impres- 
sion ou l'affichage, il faut fournir l'adresse 
finale (Y). On peut les arrêter par un ' = '. Un 
'P' à l'affichage amène une pause, tandis 
qu'à l'impression, il occasionne un saut de 
ligne. 

Commandes d'édition : 

, Help 

= Sortie vers les menus 

/ Donne un équivalent en hexa de la 

valeur saisie 
* Bouge le curseur 

Affichage automatique (sortie par un 
autre '.' 

+ Affichage de la ligne suivante 

: Changement d'adresse 

; Changement d'éditeur 

( Appel d'une routine lors d'un CALL 

ou CALnn ou d'un Jump 
) Retour à la routine d'appel (on peut 
empiler 21 adresses) 

Saisie d'un paramètre en décimal 
(mode INPUT) 

Pour saisir une mnémonique, il suffit de pres- 
ser la première lettre pour voir la mnémoni- 
que affichée s'effacer, et faire place à la let- 
tre frappée suivie d'un point d'interrogation. 
Le pgm passe du mode de saisie par INKEY $ 
à celui par INPUT. On complète alors la mné- 
monique puis on fait ENTER. Pour entrer 
NOPW (attente de 2 cycles), qui permet de 


réserver des octets pour une utilisation 
future, il suffit de réaliser la séquence sui- 
vante : presser N puis ENTER. 

Si l'instruction comporte des paramètres, 
positionner le curseur près de celui qui est 
affiché, et commencer à écrire le premier 
caractère correspondant au premier quartet. 
Le paramètre affiché s'efface pour faire 
place au caractère pressé. Il suffit alors de 
compléter (saisie par INKEY$). Si on désire 
rentrer un paramètre sous forme décimale, 
par exemple celui d'un Jump relatif sans 
faire la transformation préalable en hexa, on 
presse '-' (peu importe où se trouve le cur- 
seur) et on rentre la valeur, puis ENTER. Un 
simple ENTER correspond à un zéro. 

MONITEUR: 

La saisie des adresses s'opère de la même 
manière. Les commandes sont presque tou- 
tes identiques sauf les suivantes : 

( Saisie en bloc des huit octets de la ligne 
(INKEY$) 

) Saisie de la valeur à placer dans les huit 
octets (FILL). En hexa, placer d'abord un '&'. 
Un ENTER place un zéro. (INPUT). 
Affichage de la ligne précédente. 

Le curseur n'a qu'un seul sens de mouve- 
ment. Arrivé au bout de la ligne, il se posi- 
tionne de nouveau sur le premier octet. La 
saisie de valeur pour l'octet pointé par 
est directe par INKEYS. Le pgm attend le 
deuxième caractère avant de transformer en 
binaire et de passer au suivant. L'affichage 
est modifié à chaque saisie. 

Pour passer au dés-assembleur, il faut poin- 
ter le curseur sur un code d'instruction 
cohérent. 

IMPRESSION 

Après l'entrée des adresses, on peut entrer 
des paramètres pour un en-tête éventuel 
(ENTER le supprime). La longueur de chaque 
entrée peuvent être de 16 caractères. 

AFFICHAGE 

Pour prendre le temps de lire les quatre 
lignes affichées, on peut provoquer une 
pause ('P'). Pour repartir, on tourne la page 
par ENTER. 

LES ROUTINES LM : 

Elles sont au nombre de cinq : placement de 
l'adresse dans D$, placement du contenu 
des octets dans C$, B$ (pour le moniteur), 
A$ ; placement de l'adresse dans A$ lors de 





Jumps relatifs, placement du code saisi en 
? à I adresse voulue après conversion en 
binaire, recherche dans le fichier de la mné- 
monique utilisée et chargement du code cor- 
respondant, à l'adresse courante. 
Adresses de la table des Jump • 

&6F94, &6F97, &6F9A, &6F9D, &6FAO 
Composition de la fenêtre : 

&6FA6 - A7 : Adresse du début du fichier 
des mnémoniques 

&6FA8 - A9 : Adresse courante (ou valeur 
a convertir) 

&6FAA : (Nb + 1 ) de paramètres (2, 3 ou 9) 
&6FAB : Drapeau des Jump relatifs (0, 4 ou 
5) 

&6FAC : Drapeau de module (0: Désas 
I.Monit) 

&6FAD : Drapeau d'erreur dans le libellé de 
la mnémonique (0 ou 255) 

&6FB0 -B7 : Contenus des huit octets à par- 
tir de l'adresse courante 
&6FB0 -Drapeau d'appel à une sous-routine 
(Jump ou CALL) (0 ou 1). 

&6FB1 - B2 : Adresse de renvoi à une 

sous-routine 

&6FB8 : Check-sum 

Il ne reste qu'à vous souhaiter de créer d'au- 
dacieux programmes en langage machine. 
Bonne chance ! 


Daniel BRIANT 


10: CLS ! CURSOR 24: 

PAUSE * > QUICK 

-LM < 

CURSOR 72: PAUSE “<c 

> D.Briant 12: 

SS*: GOSUB 198 
20:CLS : PRINT "Charsem 
sut Mnennon i siues' 1 : 

■ CURSOR 89: PRINT “K7 
OK !": GOSUB 199: 
BIM M$(255)*6,W<20): 
INPUT JM$(*> 
i0'LLb : PRINT "Chargent 
em LM":0=â7S3C: 

POKE 0, 17: INPUT ''Ad 
resse A= " m ,à: POKE 0 
j 49: CURSOR 48: 

INPUT * CLÛAÜ M":v 
40: ''S" POKE 0,16: CLS : 
B=A+26,C=A+159, B=A+2 
24,E=A+26l,K=0, Y=S30 

»Z=866: IF flEM $=’'C V 
LET Y=0> 2=859 
50: POKE 86/70,824,875,8 
30,867,81I,83A,S03,8 

75.807.837 

60: POKE 86F7A,802»8F5»8 
26,824,834,853,878,8 
6F, 838, 85B, 878, 86F, 8 

38.837 


70: POKE 86F38, $64, 80F, S 
74,830,867,83A,83A,8 
03,874,807,826,837 
80: POKE 86F94, 879, INT 
< A/256), A ANB 255,87 
9, INT <B/256),B 
ANB 255,879, INT (0/ 
256) ,C ANB 255 
90: POKE 86F9B»S79) INT 
<B/256),B ANB 255-87 
9, INT (E/256), E 
ANB 255: POKE 86FA6, 
Y, 2 

100: *=* CLS : WAIT 0:S$= 
y ? SP$=S$+S$+ 

•z> $ j U =£7 8 3 U ? W = 0 

1 1 0 s PR I NT v Ed i t i on : i 9 
• PRINT ■’ Iiïipress i on: 

4 « KRiNT v Affi chase 
PRINT "Sortie 
ï 4 

120: ü= VAL INKEY$ : IF U 
=0 OR U >4 GOTO 120 
130: CLS : IF U=4 END 
140: PRINT *-> QUICK - LM 
: PRINT v Bes-Ass 
embieur : D v : PRINT 
"Moniteur heza : M 
150: POKE O» 18s IF u=l 
CURSOR Si: PRINT 
e ! p : y ) 

190: BEEP 1: NAIT : 

PRINT : NAIT 8: 

RETURN 

200: R=i: GOSUB 350:R=0 î 
GOTO 210+30*;*; 

210: E= PEEK &6FB0?B$=M$< 
E)jJ= VAL B$?B$= 

RIGHT$ (B$,5)+ m v ,f 

= J* ( J >3) ? J= J *(F=0) +2 
* ( F .> 0 ) 

220: POKE 86FAA,J,F: 

POKE 86FB0, (E>877 
ANB E<830> OR E>8BF: 

AJ= LEFT$ i LEFT$ (A 
*»2*J-2)+St,7): IF c 
CALL 86F9A 
238: IF E>8BF LET F= 

PEEK 86FB1 : POKE 86F 
B1,E-8E0,F 

240: PRINT B$HC$,’B$i A$: 

RETURN 

250: 'I M TI$=' , BesAssembleu 

r< v : GOTO 270 
260:V*TI*-* Moniteur * 

*< 

270: CURSOR 0: PRINT -m 
ICKLM * v jTI$: 

RETURN 

300: GOSUB 350: PRINT ’'K= 
S^îB^: POKE 0,17: 

INPUT “K= v j K 
310: IF U>1 POKE 0,17: 

INPUT "Y* ’j y 
320: CLS : RETURN 
330: CURSOR 0: print "Inc 
orrect ! , îS*jS$: 

GOSUB 190: GOSUB H$t 
!$=•••“. RETURN 
350: Q=K 

360 :E= INT (Q/256): 

POKE 86FA8,Q-256*E,E 
* CAlL 86F94+3*R: 

RETURN 


400: CURSOR N: PRINT ***: 
I«= INKEY* : CURSOR' 
N: PRINT ir 
G uTO 480 
410:2=I$< '■g 1 ' or 

ANB ItCfT); RETUPN 
1000: "B" CLS : WAIT 0: 
uuSUB 'JT: GOSUB 3 
08 

1010: l ’>$*x=0: POKE 86FA 
C,X: ON U GOTO 110 
0,2000,2850 
1020:6OTO '= 

1 1 00 :L=1 130, 0=1210, T$=" 
GOSUB H 

$ 

1110:"»'' CURSOR 72 
1120: GOSUB 200 
1130:N=81: GOSUB 400: 

IF I#>V* ANB I$(» 
GOTO L 

1140: IF 1$="** GOTO 120 
0 

1150: IF 2 GOTO 1$ 

1160: CURSOR 82: PRINT S 
CURSOR 32: 

PRINT I$:M$=' , OPW 1 ‘: 
CURSOR 83-<I*='M 
1170: INPUT M$ 

1130:M$= LEFT* <I$+M$+S 
LALl 86r A0: 

IF PEEK 86FAB 
GOSUB 330: GOTO 11 
60 

11 90: GOTO T$ 

1200:1F J=1 GOTO L 
1210: N=88: GOSUB 400: 

IF Ity'F" GOTO G 
1220: IF I$=*«* GOTO L 
1230: IF 2 GOTO Iî 

i 1 f?-!Â”L IF X G0T0 1760 
lilu:CURSOR 89: PRINT S 

*'• CURSOR 89: 

GOTO 1320+30*<I$=» 

-') 

1320: 0=K+1 : GOSUB 360: 

PEINT I$j:D$=I$: 

FOR P=1 TO J*2-3 
1338: I$= INKEYJ : IF l$ 

<''0" OR CI$> I '9“ 

ANB IJC'A") OR I$> 

M F V GOTO 1330 
1340:B*=B$+I$: Print 1$ 

> ! NEXT P: CALL 86 
F9B: GOTO T$ 

1350: IF J >2 GOTO G 
1360:P=0: INPUT P 
1370: POKE K+1,P: if x 
POKE K, P, p, p, p, p, p 
>P,P 

1380: GOTO T$ 

1480: *<* if x , GOTO 3200 
141u: IF W=2l OR PEEK 86 
FB0=0 GOTO 1450 
1420: W(W)=K, W=W+1 , K=256 
* PEEK 86FB1+ 

PEEK &6FB2: GOTO 1 
120 

1430: '■’)'• if x CURSOR 77 
: GOTO 1360 

1440: IF W>0 LET W=W-1,K 
=W<W): GOTO 1120 
1450:BEEP 1: GOTO L 
1430: V* CURSOR 1: 




M$<&31)= V 1STQ 

*.» 

M$<&7B)= ¥ 

1 ??? 

M$(&32)= tf 1STR 

V 

M$<&7C)= V 

3JPNZ 

M$<&33)= M 1STS 

V 

M$<&7B)= M 

3 JP NC 

M$<&34>= v 1PUSH 

V 

«$<&7E)= tf 

3JPZ 

M$<&35)= v 1BATA 


maiF)= v 

3JPC 

M$<&36>= v l??? 


M$(St80) = v 

1LP00 

M*<S37>= ¥ 1RTN 

v 

n$<&8i)= M 

1LP01 

M$(&33)= V 5JRZ+ 

V 

M$<&82)=* 

1LP02 

M$'<8c39) = v 4JRZ- 

V 

M$<&83)= ¥ 

1LP03 

ma 3A)= v 5JRC+ 

iiiiiiii» 

M*<Ê84)= tf 

1LP04 

M*<&3B>=*4JRC- 

M 

M$(S85)= tf 

1LP05 

n$(8c3C>= v i??? 

iisïiiiiffliiïsiiïiii 

M$(&86)=' 

1 L.P0é 

M$<&3B>= M 1 ? ? ? 


masi)= K 

1LP07 

M$(St3E) = M 1??? 

V 

M$<&88>=' 

1LP08 

M$<&3F>= V 1??? 

V 

mas3)= ,f 

1LP09 

«$<&40>= W 1INCI 

MiÉllli 

W$<&8A)= M 

1LP0A 

M*<&41>= V 1BECI 

v 

M$<&8B)= V 

1LP0B 

M*<&42)= V 1INCA 

jiliiiiSlllllil 

M$ ( &8C ) = w 

1LP0C 

fl$C&43>= v lBECA 

V 

m (. &8B > = M 

1LP0D 

M^c;&44> = m IhDM 

y 

M$C&8E)= V 

1LP8E 

N$C&45>= V 1SBN 

y 

M$(St8F) = v 

1LP0F 

&46 )= v ÎANMA 

V 

r*i$(&90)= v iLPi0 

H# < &4T > = ,J 10RMA 


ma 9i>= M 

iLPll 

M$<Ê48)= v iINCK 


M$<&92)= ¥ 

IIP 12 

M$<&49)= M 1DECK 

y 

M$(&93)= ¥ 

IIP 13 

M$(&4A)= w 1INCW 

v 

M$<&94)= ¥ 

1 LP 4 

M$«4B> = "1BECM 

v 

M$<&95)= M 

1 LP 5 

M$<8c4C) = v 1 INA 

y 

ma96)= K ' 

HP 16 

M$<&4B)= V 1NCPW 

y 

M$<&97)= ¥ 

IIP 17 

M$(&4E)= V 2WAIT 

v 

M$<&98)= ¥ 

IIP 18 

M$(Sc4F) = tf 1CUP 

V 

h$(Ê99) = ‘-‘ 

1LP19 

M$<&50>= ¥ 1INCP 


M$<&9A)= ¥ 

1LP1A 

M$<&51 > = '• 1BECP 

v 

ma 9B>= M 

1 LP B 

M$<&52> = '*‘ 1STB 

Sililii'S 

M$<&9C)= tf 

1 LP C 

M$(&53)= v 1MVBM 

y 

rl$(&9B)= M 

1LP1B 

M$(&54)= v IREABî* 

V 

m (. &9E ) = ‘' l 

1 LP E 

M*<&55>= M 1MVMD 

v 

M$<&9F>= ¥ 

1 LP 1F 

M$<&56)= M 1READ 

v 

M$<&A0)= tf 

1LP20 

M$(8c57) = v 1LBB 

y 

n$(âAi)= v 

1LP21 

M$<&58)= V 1SWP 

v 

M$CScA2) = v 

1LP22 

M$<Sc59) = v 1LBM 

v 

M$<&A3)= W 

ÎLP23 

M$C&5A)= M 1 SL 

• 

M$(&A4)= v 

1LP24 

M$<&5B>= ¥ 1PGP 

v 

M$C&A5)= M 

1LP25 

M$C&5C)= tf 1 ??? 

v 

M$<&A6)= M 

1LP26 

M$<&5B)= ¥ 10UTA 

V 

M*C&A7)= V 

1LP27 

M*(&5E )=*!??? 


M$<&A8)= M 

1LP28 

M$(&5F)= V iOUTF 

y 

M$<&A9)= W 

1LP29 

ri$(g:60) = , -‘2ANin 


M$<&AA)= tf 

1LP2A 

M$(&6i)= M 2QRIM 

v 

M$<ÊAB)= ¥ 

1LP2B 

M$(Sc62) = v 2TSIM 

v 

M$<&AC)= tf 

1LP2C 

M$<&63) = M 2C'PIM 

v 

M$(8iAB) = v 

1LP2B 

M$(&64)= V 2ANIA 

• 

M$<&AE)= V 

1LP2E 

M$(&65)= tf 20RIA 

y 

M$<&AF)= M 

1LP2F 

M$<&66)= M 2TSIA 


M$<&B0)= M 

1LP30 

M$<&67)= M 2CPIA 

v 

maBi:>= v 

1LP31 

M$(&68)= v 1??? 

M 

n$<&B2)= v 

1LP32 

M$<&69) = v 1 ? ? ? 


M$<03> = v 

1LP33 

M$<Sc6A) = tf l?7? 

y 

M$<&B4)= ¥ 

1LP34 

M$(&6B)= M 2TEST 

y 

M$<&B5)= tf 

1LP35 

M$<&6C)= V 1??? 


M$(&B6)= tf 

1LP36 

M$(&6B)= M 1??? 


ri$(g : B7) = v 

1LP37 

M*<&6E)= ¥ l??? 

y ■ 

M*<&B8)= M 

1LP38 

M$<&6F)= M 1CBN 

'' 

M$<&B9)= ¥ 

1LP39 

M$<&70) = ¥ 2ADIPI 

V' 

M$(StBA) = v 

1LP3A 

M$<&71)= M 2SBIM 


«*(&BB)= M 

1LP3B 

M$(&72)= v 1??? 

y 

M$<&BC)= M 

1LP3C 

M$<&73)= ¥ 1??? 

tf 

ri$(&BB) = M 

1LP3B 

M$(8t74) = v 2ABIA 

v: 

M$<&BE)= V 

1LP3E 

M$<&75)= M 2SBIA 

v 

M$<&BF)= M 

1LP3F 

M$<&76)= w i??? 

'V' 

M$<&C0)= v 

11 NC J 

M$<&77)= M 1??? 



1DECJ 

M$<Sc78) = M 3CALL 

:: y ' 

M$(&C2)= V 

1INCB 

M$<Ê79)= M 3JP 


M$(&C3)= V 

1BECB 

M*<&7A)= M 1??? 

y 

M$(S:C4) = V 

1ABCM 


M$(&C5) = ¥ 1SBCM 
M$(&C6)= V 1TSMA 
M$<&C7)= tf lCPMA v 
M$<&C8)= ¥ 1INCL M 
!W&C9> = V 1BECL v 
M$(8cCA) = v 1 INC N 
N$<&CB)=*1DECN v 
M$<&CC)S ¥ 1INB v 
M$<8tCD) = v î ? ? ? v 
M$<&CE)= V 1N0PT M 
l*t$<&CF) = v 1??? 
!*1$(&B8) = V 1SC 
M$(&B1 >= v IRC 
M$<&B2)= V 1SR 
M$<&D3)= tf IWRIT M 
M$(&D4)= ¥ 2ANID M 
M$<&D5)= M 20RIB v 
M$<&B6)= V 2TSID 
M$<&D7)= V 1??? y 
M$<&B8)= V 1LEAVE ¥ 
M$<&D9> = M 1??? 
M$<&BA)= ¥ 1EXAB 
M$(&BB)= V 1EXAM 
M$<&BC)= V 1??? v 
M$<&BB) = v 1ÜUTB 
M$(&BE)= V 1??? * 

N$<&BF)= V 10UTC v 
M $ < 8c E 0 ) = v 2 C A L 8 8 1 ‘ 
M$<âEi )= tf 2CAL01 v 
m ( &E2 > = v 2CAL02 v 
M$ < &E3 > = v 2C AL83 w 
M$ < SE4 ) = M 2C AL84 v 
M$<SE5)= M 2CAL05 M 
M$ ( &E6 ) = v 2C AL86 v 
M$ ( &E7 ) = M 2C AL07 
m (. &E8 ) = v 2C AL08 
M$ ( &E9 > = v 2C AL89 M 
M$ ( &EA ) = v 2C AL0 A v 
M$ < &EB ) = v 2C AL0B 9 
< &EC ) = 2C AL0C " 
lt$ < &ED > = 2C AL8B M 
M$<SEE)= tf 2CAL0E M 
M$ < SEP > = ' 2C AL0F v 
N$ ( &F8 ) = ■' 2C AL 1 0 v 
M$(&Fl)= v 2CALll M 
M$(&F2)= M 2CAL12 V 
M$(8cF3) = v 2CAL13 v 
M$ ( SF4 ) = v 2C AL 1 4 v 
!*!$(&F5) = M 2CAL15 V 
M$(StF6) = v 2CAL16 v 
M*<&F7>= W 2CAL17* 
m < & F 8 ) = '■* 2C AL 1 8 ' 
M$<&F9)= M 2CAL19 W 
M$<&FA)= tf 2CALlA w 
W$<&FB)= M 2CAL1B ¥ 
M $ ( & F C ) = '■ 2 C A L 1 C '' 
M$(&FD)= M 2CAL1D V 
M$(&FE>= M 2CALiE v 
M$<&FF)= M 2CAL1F M 


CE-516P 


NT M D V ï C+E> 

e; u » b w ï 

w T 1 S w ï 
NEXT A: 




65000: "L" CLEAR : US ING 
65010: 1 | " LPRINT CHR$ 27+"b": FOR X=0 
TO 149: P= POINT (XjY): IF P 
LPRINT ,, M ,, ;X*3î"»"î-Y*3: LPRINT ' 

65020: NEXT X:Y=Y+l: IF Y<32 GOTO "I" 
65030: END 


COPIE=ECRAN=== 
==CE-126P===== 


imÈÊ 


L 11 CLEAR : 3311*1 2* 
3>*24: FOR Y=140 
0 0 STEP -i: FOR 
=0 TO 24: W= 

POINT <Y»X): IF W= 
0 LET Z$<0>=2*<0>+ 
* M : GOTO 1060 
!Z$<.0) = Z$(0>V*'' 
NEXT X: LPRINT Z*( 
):Z*(0)»*** NEXT 
Y: RETURN 


1120: U =BEN. =CHAFFANJON= 
1 î?0: *’=DECEI1BRE===1935= 






INITIATION AU LM ESR-H 


P#or noir» traisKm. rencontre, 
**“.<*«» •irireprmdra mm 
grande expérience ; In création 
de nos pramiers programmes en 
langage machine. â n'est pas 

Vous vous en doutez maintenant, il faut avant 
tout choisir une adresse d'implantation en 
mémoire vive pour notre programme. Cette 
adresse dépend du PC, de sa memory map 
(carte mémoire), des programmes basic et Im 
déjà présents. Par convention, nous prendrons 
pour nos exercices les adresses suivantes : 


aujourd'hui bien sur, que nous 
allons fabnquer un super pro- 
gramme de |eu ou un utilitaire 
génial. Cela viendra avec le 
temps et l'expérience. 

PC 1245/51/55 : &C100 
PC 1260/61 : &6100 
PC 1401/02 : &4100 
PC 1350 : &6900 

En mode programme comme en mode com- 
mande, nous lancerons nos programmes (à partir 
du basic, par l'instruction : CAI! adresse. Donc, 


CPU (SC61860A13).... 8-bit C MOS CPU 


™° pour le 1 350, CALL &C100 poui 

De plus, tout programme Im doit, pour revenir 
sans « Planter » sous basic, toujours passer sur 
I instruction Im RTN. RTN est le mnémonique 
qui signifie RETURN, donc RETOUR. Carie CALL 
(basic) empile (push) l'adresse de retour au MCP 
et le RTN décrémente la pile (pop) et restitue 
cette adresse. Si on ne retrouve pas cette 
adresse, on ne revient pas dans le MCP et le PC 
se « plante » (astuce : PC pour Program Coun- 
ter et pour Pocket Computer II). 

Voici la fonction de RTN : 

RTN : code &37 

(R) M PCL ou PC est le registre 16 bits : 
Program Counter, 

(R+1) « PCH PCL est Program Counter Low et 
PCH : PC High, PCL est le poids 
faible de PC et PCH le p Fort, 

M+ 1 H R où R est le pointeur de pile. 

Les notations employées sont : (registre) qui 
signifie que l'on prend le contenu du registre. 


TEST ACU ON SNO Voo V K V 0 . S V, V» V. 

0 /n a ^ _ 


Microcassette input 


Microcassette output XQ 



#A t R W FOt FO? FO j FO* FOj 
| <CE/<CEXCE) 




au niveau de profondeur 













Ici, on prend le contenu du registre de la pile 
pointé par R et celui du registre, pointé par R + 1 , 
et on le place dans PCL e PCH. On pop donc 
la pile (dépile) pour récupérer une adresse pus- 
hée (empilée) auparavant (japonais, bien sur). 
Cette adresse pointant, sur la prochaine instruc- 
tion Im à exécuter. On initialise ensuite le poin- 
teur de pile R. Et tout ça en une seule instruc- 
tion : RTN. 

De manière générale RTN termine tout pro- 
gramme ou sous-programme LM. Dans le cas 
d'un sous-programme, RTN fera pointer PC sur 
l'instruction suivant le CALL (LM) ou le CALL 
d'appel à ce sous-programme. On revient donc 
à un programme principal. Nous étudierons cette 
procédure quand nous parlerons des instructions 
de branchements. 

important : RTN ne fait rien d'autre, il n'influe 
pas sur d'autres registres que PC et R, et ne 
modifie pas les Flags Z et C. 

C'est le cœur battant le souffle court que nous 
allons montrer notre tout premier programme. 
Taper dans n'importe quel mode : POKE 
adresse, &. 37 ENTER. Soit pour le PC 1350 : 
POKE &6900, &37. Dorénavant les exemples 
seront donnés par rapport au PC 1350. Etant 
bien entendu qu'ils sont transposables, aux 
adresses près, sur les autres PCs.Taper ensuite 
CALL adresse : soit CALL &6900. Et rien de 
spectaculaire ne se produit. Si ce n'est que l'on 
est revenu tout de suite au basic. Eh oui, ce pre- 
mier programme LM n'est composé que d'une 
seule instruction, la seule instruction indispen- 
sable : RTN. Le microprocesseur ayant rencon- 
tré tout de suite le code &37 de retour, est 
revenu de suite sous basic. Encore plus fort : 
POKE &6900, &4D, &37 ENTER. CALL &6900 
ENTER. Le second programme se termine tou- 
jours par RTN, mais comporte avant une autre 
instruction de code &4D : 

NOPW : code &4D NO opération two cycles. 
Soit ne rien faire durant 2 cycles du micropro- 
cesseur. Cette instructin permet de perdre du 
temps (2 cycles à la fois) puisqu'elle fait 
« patienter » le microprocesseur pendant 2 
cycles. Aucune autre action n'est effectuée. 

Nous avons une autre instruction de ce type 
mais sur 3 cyles : 

NOPT : code &CE NO opération three cycles. 
Ou encore : 

WAIT n : code &4E WAIT 6+n cycles. 

Cette instruction est sur 2 octets : le code de 
l'instruction &4E et l'opérande (ou paramètre) 
n. n vaut entre 0 et &FF, ce qui permet d'at- 
tendre entre 6 et 261 cycles à la fois. 

Mais revenons à notre second programme LM. 



Nous avons demandé au micropro ESR-H de ne 
rien faire pendant 2 cycles, puis de revenir. Il 
s'est donc reposé pendant les deux cycles. Mais 
me direz-vous, à quoi cela sert de ne rien faire ? 
Et je vous répondrais : à au moins deux choses 
importantes : perdre du temps, ou réserver des 
octets dans un pgm pour pouvoir le modifier 
sans trop de difficultés. 

Nous avons abordé ici la notion de temps de 
cycles. Un cycle est en gros une unité de temps 
pour le microprocesseur. Le nombre de cycles 
d'une instruction correpond au temps mis par 
le SC 61860 pour exécuter ladite instruction. 
Pour le PC 1350 et les PCs utilisant un quartz 
de 768 Khz, le temps de cycle vaut : Cte* 


1 /fréquence. Soit pour le PC 1350: cte* 
1/768000. La constante se détermine soit à l'os- 
cilloscope, soit au jugé avec des boucles vides 
et un chrono. La constante vaut 3 sur le 1 350, 
d'où : temps de cycle = 3/768000 + 3.90625E 
-06. En général, on se sert de cette information 
pour calculer précisément des temps d'attente, 
ou pour choisir l'instruction LM la plus rapide. 
Les seuls registres utilisés dans nos deux pro- 
grammes sont les registres PC et R. B de 
manière totalement transparente pour nous. 
Nous allons maintenant taper : POKE &6900, 
&02, &00, &37. Ce qui constitue notre troi- 
sième programme. Il peut se traduire en mné- 
monique par : 


Adresse 



Opérande 

Commentaire 

&6900 

&02 &00 

LIA 

&00 

&00«Accu 

&6902 

!I||||!||||I 

llllll " i;? - h T ~ 

illîss» 

&00 

on revient. 


Dans ce programme, on utilise explicitement le 
registre A qui est l'accumulateur et on lui affecte 
la valeur 0. Puis, on revient. Le registre A 
(comme tous les autres) est donc assimilable à 
une variable basic que l'on intialiserait à 0. 
Voyons de près l'instruction de mnémonique 
LIA: 

LIA n : code &02 Load Immédiate valeur n 
dans Accu. 

n « A 0 < = n < = 255. Pas d'autres effets. 
Ou plus généralement : 

Llr n : Load Immédiate valeur n dans registre 8 
bits r. 

n « r où r est un registre 8 bits A, B, I, ou J. 
n est une valeur sur 8 bits. 

LU n : code &00 n « I 
LU n : code &01 n « J 
LIA n : code &02 n « A 
LIB n : code &03 n « B 

Le registre r est le seul à être modifié, les flags 
ne sont pas touchés. 

On a aussi pour les registres 7 bits P et Q : 
Llr n : Load Immédiate valeur n dans regis- 

tre 7 bits r. 

n « r r : registre d'adresse de ram interne 
7 bits. P ou Q 
n : valeur sur 7 bits. 

LIP n : code &12 n « P 
LIQ n : code &13 n « Q 

Pas d'autres effets. 

Les instructions Llr n sont donc des instructions 
d'affectations de registres (LOAD = chargement) 



sur 2 octets : Le code, et l'opérande n est la 
valeur à placer. 

Nous verrons par la suite qu'il existe d'autres 
instructions de ce type : avec valeur immédiate. 
Et d'autres de types indirects : sans valeur n 
explicite. 

Tâchez donc de deviner ce que sont les instruc- 
tions de mnémoniques : LIDP nm, LIDL n, LP 1, 
puis LDr (LDP, LDQ, LDR), LDM et LDD. Ce sera 
notre étude prochaine. 

En attendant, vous pouvez toujours étudier les 
pgms L.M. désassemblés et commentés. Et me 
faire part de vos difficultés dans les leçons der- 
nières, par courrier. 

Jean-françois Vignaud. 


MODIFICATION 

DU 

K-BASIC V.5.7. 


MODE DE STOCKAGE DES VARIABLES 

‘A ta suite de la correction de l'erreur se pro- 
duisant dans le passage des paramètres de Pro- 
cédures ou fonction, par valeurs, je me suis 
rendu compte qu'il était possible de simplifier 
le mode de stockage des variables (les Zones 
« Z » (cf Doc. page 9), ont plus que 2 octets), 
ce qui permet de gagner beaucoup de mémoire 
dans les programmes manipulant des tableaux 
importants. 


ERRARE 

FORTHUM 

EST...! 


Un fervent adepte d'EDIFORTH, 
M Olivier WALTER pour ne pas le 
nommer, m'ayant signalé deux 
« bogues » et un mot absent, 
voici comment réparer ces petits 
problèmes... 

Les deux bogues touchent les mots « DSAVE et 
DLOAD » chargés respectivement, en temps nor- 
mal, de sauvegarder Informe compilée des mots 
crées dans le dictionnaire, à partir du mot 
« TASK » et de les y remettre. 



On chargera le Basic V.5.7 et quand la sonnerie retentira, on fera Shift Break. Par la commande 
M du moniteur, on placera en mémoire, les octets suivants : 


IOFD 

2BB9 

2BC8 

2BDI 

2C2A 

3C2A 

3CC9 

3CD5 

5F63 

5F7C 

65CF 

65F3 

66DB 

67IA 

676F 

677E 

6788 

77DD 

77E8 

7851 

7856 

7922 

7E88 


38 (Identificateur K-Basic V.5.8) 


00 

00 

00 

C3 

02 

00 

02 

00 

00 

06 

00 

02 

02 

00 

00 

00 

07 

02 

00 

02 

02 

00 


00 

00 

00 


(3 octets nuis de suite) 


00 

00 



00 

KM 

|wjjj 




00 

00 

00 

00 

00 

00 

00 (8 octets nuis de suite) 

00 

00 

00 

00 

00 

00 

00 

(7 octets nuis de suite) 


On réenregistrera le Basic par J8670 et enfoncement de ' S '. 


Lécran no 30, ci-dessous, vous donnera le moyen 
de les ramener à la raison et de leur faire adop- 
ter un comportement normal, en corrigeant 
directement leurs codes compilés, dans le dic- 
tionnaire. 

Question volontairement embarrassante... de la 
personne s'épanouissant près du radiateur, au 
fond de la classe des Sharpentiers : 

Dois-je resaisir tout cela à chaque fois que je 
recharge EDIFORTH ? 

• Réponse : Oui... si vous n'êtes pas assez cou- 
rageux pour saisir l'écran no 31 qui suit. En effet 
il permet de sauver EDIFORTH après les modifi- 
cations réalisées à l'aide de l'écran no 30 
(« patch » pour les anglophiles). 

Mais ce n'est pas tout. La notice d'EDIFORTH 
décrit le mot ' « ' alors qu'il est purement et sim- 
plement absent des versions cassettes pour 
MZ80K, A et 700 (heureux propriétaires de la 
version disquette pour MZ80K qui le 
possèdent... I). 


Ici l'auteur d'EDIFORTH, devenu soudain beau- 
coup plus humble, ose à peine vous présenter 
l'écran no 32. 

Et dans un dernier élan de générosité, mêlée de 
confusion, il rassemble ses dernières forces pour 
vous dévoiler l'écran no 11. 

Là les petits malins se rendront compte alors 
que : écran no 30 + écran no 32 + écran no 
11 + écran no 31 (l'ordre est très important), 
c’est la recette miracle qui permet de corriger 
votre EDIFORTH et de le sauver complètement, 
avec en plus des mots nouveaux inclus dans le 
dictionnaire. 

Rappel du déroulement des opérations après la 
saisie des écrans : 

"30 LOAD 32 LOAD 1 1 LOAD 30 LOAD” et 
c'est tout ! 

A vos claviers et bonne cuisine à tous, BONUM 
FORTHUM LAETIFICAT COR PROGRAM- 
MAIS...)*) 

(Dominique BEURIER 12/85) 
* Quelle culture, ces Sharpentiers !... 



K. :+■ :+- :+: vf : f: :f : :+: vf vf vf : vf vf vf Vf vf vf vf vf vf vf :f : :+: vf vf 'f : Vf :+: Vf vf vf :f : : f vf vf : f vf :+: vf : vf vf: vf 


r ■: NOVflU 

* DECIMAL 

* : NOVAU 


* cable 


écran no 11 , . . 8?."09,--84 >' + : 

LATEST 12 +0RIGIN ? < top MF A + 

HERE 23 +ORIGIH 1 < FEUCE "• + 

HERE 30 +ORIGIN 1 ! DP ) += 

HERE FENCE 1 ; ( FENCE actuel :• + 

¥ 


■■■ et end le d i et i onna i re i net' f a- 
jus-au au dernier- mot cr-ee » 


IMPRIMANTE CENTRO 


f :f : vf vf : .f : :f: ¥ ■¥ vf : vf % vf vf vf '+ vf vf vf vf vf : ■¥ + ■¥■ vf vf : vf vf vf Vf vf ¥ vf Vf ■¥ ■¥ vf vf vf: vf vf + ■■¥ vf vf 


f vf vf: vf vf : vf * vf :+: vf vf vf vf vf vf vf vf :f vf : vf vf vf + vf vf vf: ■¥ ■¥■ vf +■ + + ++ff++t+ f:vf:vfvf 
¥ f 

+■ Fat- ch D3AUE&DLÜAD écran 30 24 10 35 > + 

¥ ¥ 

¥ " DSAUE 30 + >R ' COMTE’, KT CFA R I * 

* ' 3 CFA R> 2+ DUP >R ! f 

r ' 3 CFA R '=• 2+ DUF >R < f 

* •' P STAR T CFA R 2+ DUF >R ' +■ 

* - ' CFA R > 2+ DUF >R 1 f 

* MHEADER CFA R> 2+ DUF >F ■ ¥ 

* ’ UC MT CFA R > 2+ DUF ">F ’ r 

* ' 2DROP CFA R - 2+ ; * 

+■ ' DLOAD 18 + >R ’ RC MT CFA R 1 + 

* ■' 2DROP CFA R 2+ C'UF >R 1 

* F3TART CFA R> 2+ DUF >R ’ f 

r ' 3 CFA R> 2+ C'UF >R ’ + 

+• ’ CONTEXT CFA R> 2+ C'UF >F 1 

f - 3 CFA R> 2 + C'UF >R « 

+ " ’ CFA R - 2+ [>UF >F : 

* FSIZE CFA R > 2+ C'UF '-R ' r 

+■ - 3 CFA R 2+ C'UF >F ' k 

t F TOP CFA R > 2+ DUF >F ’ 

* 5 CFA R > 2+ DUF >R ’ f 

^ * CFA R •• 2+ C'UF >R ’ r 

t C-P CFA R." 2+ DUF ""F ' r 

¥ ' > CFA R> 2+ — \ f 


¥ +■ '+' + + Vf + + r+: :+: :+: :+: :+ :+: +: :+: :+: :+- :+ +: +: :+: ++::+: + :+: 


f: Vf: Vf: ^ +vf::+ ; vf::+::+:+:vf::+:^:+::f:vf::+:vf:vf:vf::+::+: 

f: f' 

t- ; DUPFORTH écran no 31 ... 24'10.'85 ' 4= 

¥ HEX +' 

t HERE 1200 DUP DUP FTOF ! F5TART 1 - 1+ + 

¥ F3 1 ZE ’ 1 FTVFE C >FILENAME CR WHEADER + : 
t' WCMT 2DROP CR f 

f: ¥ 

¥ DECIMAL ¥ 

f: f 

¥ < Recopie EDIFOFTH sur cassette ■ après + : 

¥ modifications . t- 

f Les mots crées dans le dictionnaire t 

* après TA3K " ne seront saucés tue si * 

¥ le mot 'HOVAU " est exécuté préalable- + 

¥ ment . -'oir 1 "écran no 11 » + 


Le BASIC CENTRO du Club permet la connec- 
tion de n'importe quelle imprimante au stan- 
dart CENTRONICS. Cependant, vous rencon- 
trez parfois certaines difficultés à exploiter plei- 
nement toutes les possibilités de ces impriman- 
tes car le mode d'emploi des différents codes 
de contrôle n'est pas toujours très explicite. 
A titre d'exemple, nous vous soumettons les 


résultats obtenus par un heureux Sharpentier 
muni d'une imprimante STAR SGI 0. A noter 
que toute impression spéciale est commandée 
par 3 codes envoyés par PRINT/P CHR$ (X,Y,Z) 
et que le premier de ces codes est très souvent 
CHR$ (27) ; il correspond au code ESC ou 
ESCAPE de la majorité des notices. 


10 ' BOSIO GERARD XXX MONACO ..pour IMPRIMANTE STAR SG 10 BASIC CENTRO. DU CLUB 
20 ' MODE STAR SG10 switch 1/1 ON === switch 2/3 OFF (line -feed) 

30 f CABLE DE LIAISON MZ 700 

40 PR INT /P"============TESTS DE LONGUEUR DE LIGNES EN DIFFERENTS MODES========== 

50 PRINT/P CHR* (27,66,3) : ' espacement condense marche 
60 PRINT/P" Cet te ligne est en espacement CONDENSE." 

70 PRINT/P" " 

SO PRINT/P CHR*<27,66,2> s ’ espacement ELITE marche 
90 PRINT/P "Cette ligne est en espacement ELITE." 

100 PRINT/P" * " 

110 PRINT/P CHR* (27, 158,49) : ’ MODE proporti onnel marche 
120 PR INT/P "Cette ligne est en espacement PROPORTIONNEL" 

130 PRINT/P" " 

140 PRINT/P CHR4 (27, 158,49) ; 'ARRET de l’espacement PROPORTIONNEL 

160 PRINT/P CHR* (27,66, 1 ) : ’ espacement PICA marche 

170 PRINT/P"Cette ligne est en espacement PICA (normal)" 

180 PRINT/P"=======================FIN DES ESSAIS=============================== 


TESTS DE LONGUEUR DE LIGNES EN DIFFERENTS MODES 
Cette ligne est en espacement CONDENSE. 


, Cette ligne est en espacement ELITE. 


¥ ¥ 

¥ f 

¥ f: 


f::+:î+::+::+::+::+: vf: # :+:+:+::t: 4= 


écran no 32 


24. •• 10/85 


'LO AD ING 0 IN ! 

6.--SCR BLK 3 OUER MOD 
BLK +! ? IMMEDIATE 


< > sous le mode éditeur , permet 

de continuer 1 "interprétât ion sur 1" 
écran suivant > 


Cette ligne est en espacement PROPORTIONNEL 


Cette ligne est en espacement PICA (normal) 
=======================FIN DES ESSAIS========== 


10 ’ PROGRAMME D’ESSAI DES ZERO *#* 

20 ’ AVEC BASIC CENTRO DU CLUB 

30 PRINT/P CHR*(27,92 S 49> : ’ Zéro barres marche 
40 RRINT/P"«==*===*======*========»==:========== 

50 PRINT/P-CETTE LIGNE A LES ZERO BARRES" 

60 PRINT/P"0, 10,20,30.40,50,60,70,80,90, 100" 
70 ’ a*************************************** 
80 PRINT/P CHR$ (27 , 92, 48) : ’ Zéro barres stop 
90 PRINT/P-CETTE LIGNE A LES ZERO NON BARRES" 
100 PRINT/P" 100, 90, 80, 70, 60, 50, 40, 30, 20, 10,0" 
110 PRINT/P" 


CETTE LIGNE A LES ZERO BARRES 
0, 10,20,30,40,50,60,70,80,90, 100 

CETTE LIGNE A LES ZERO NON BARRES 
100, 90, 80, 70, 60, 50, 40, 30, 20, 10, 0 


+: vf: vf: vf: vf: vf: vf : vf: vf : vf : vf: vf: vf : îf: vf: :+: :+: :f: vf : vf : vf : vf: :f: >f : :f: Vf : :+: :ft :+: :f! vf : 


** 280 ASSEMBLER SP-7101 ( QD-CMT > PAGE Ql 


12--"16.-"S5 


1E PIECE... ! 


Utilisateur de bonne foi d'un 
MZ - 800 et de son QDisk, 
depuis le mois de Mai 85/ [e 
décidais, après quelques mois 
d'observation que ce périphéri- 
que était fiable. 

Effectivement, ie n'ai jamais eu 
un seul problème de lecture/ 
écriture avec. 

Confiant, je dédaignais donc le 
lecteur de cassette pour ne tra- 
vailler qu'avec le QDisk... 
Jusqu'au jour où un ami me 
demanda un programme en jan- 
gage machine, de mon cru, figu- 
rant sur une QDisquette. 

C'est alors que je découvris le 
piège... ! 

L'ami en question n'étant pas doté de ce péri- 
phérique, je m'aperçus qu'il n'existait pas d'uti- 
litaire permettant de transférer ce type de 
fichier d'une QDisquette sur une cassette. 
Pour sortir de cette situation, je vous propose 
le programme QD-CMT qui en 94 octets de lan- 
gage machine vous sauvera du déshonneur... ! 
Pour le créer vous avez deux possibilités : 

• soit saisir le programme source ci-dessous, 
avec un assembleur, 

• soit saisir sous le moniteur de votre MZ (le 
moniteur en ROM), à l'aide de la commande 
'M', à partir de l'adresse 1200 (en hexa), les 
codes machines hexadécimaux figurant à droite 
du no de ligne et de l'adresse, sur le listing ; 
c'est à dire : « 31 F0 10 3E OE... etc... jusqu'à 
C3 5E et EA ». 

Ce programme fait un maximum appel aux rou- 
tines des moniteurs haut et bas du MZ-800 ce 
qui explique sa petite taille. 

Pour l'arrêter, il suffit de taper SHIFT + BREAK 
lorsqu'il pose la question ' Filemane ?'. 

En guise de conclusion, signalons que QD-CMT 
ne sachant pas distinguer deux fichiers de 
même nom, mais de types différents, sur une 
même QDisquette, il prend le premier. 

Dominique BEURIER 12/85 


01 0000 
02 0000 


; 


QDCMT 

03 0000 

04 0000 

05 0000 


: 

-U* ri - 1 on du 16 - 12- 

06 0000 
07 0000 
03 0000 


Iiijlillillljillllill 


D. BEURIER- 

09 0000 
L0 0080 
11 0000 

12 3000 

13 1200 

14 1200 

15 1200 

liiiiiiiiisiiiiiiiffiiiïii 

HMffl*® 

NLi 

ÛRG 

EQU 

1200H 

0009H 

16 1200 

F 

WR INF: 

EQU 

8021 H 

17 1200 

P 

WRDAT : 

EQU 

0024H 

18 1200 

P 

SIZE: 

EQU 

1102H 

19 1200 

P 

DT ADR : 

EQU 

1 104H 

20 1200 

F 

EX ADR: 

EQU 

1106H 

21 1200 

P 

STIX: 

EQU 

EA5EH 

22 1280 

P 

QDRCK : 

EQU 

EF27H 

23 1200 

P 

FUI NFî 

EQU 

EC8DH 

24 1200 

P 

HDPCL : 

EQU 

F25FH 

25 1200 

P 

MSGLD: 

EQU 

EE91H 

26 l 200 

P 

FILSCHî 

EQU 

EEF7H 

27 1200 

P 

H AME: 

EQU 

10F1H 

28 1200 

P 

QDPC: 

EQU 

1132H 

29 1200 

P 

QS I ZE : 

EQU 

1104H 

30 1200 

F 

QDPE: 

EQU 

1 134H 

31 1200 

P 

QDFfls 

EQU 

1 130H 

32 1280 

P 

QBIÜSï 

EQU 

E01GH 

33 1200 

34 120Ü 

35 1290 

31FÔ10 

lllflll 

LD 

SP ? 10F0H 

36 1203 

3E02 


LD 

A ? 02H 

37 1205 

3 23 A 1 1 


LD 

■; 1 1 3AH) , H 

38 1208 

39 1208 

CD0900 

QDCMT0: 

i CALL 

HL 

40 120B 

CD27EF 


CALL 

QDRCK 

41 120E 

384B 


JR 

C, QDCMT 1 

42 1210 

CD8DEC 


CALL 

FNINP 

43 1213 

C05FF2 


CALL 

HDPCL 

44 1216 

1191EE 


LD 

DE? MSGLD 

45 1219 

DF 


R ST 

3 

46 1210 

47 1210 

CDF7EE 

WiÊsMêBÊèèË 

CALL 

FILSCH 

48 1210 

383C 


JR 

C, QDCMT 1 

49 121F 

1 1 F 1 1 0 


LD 

DE ? HAME 

50 1222 

DF 


RST 

3 



** Z80 ASSEMBLER 

SP-7101 <QC 

-CMT > 

PAGE ©2 

01 

1223 

; 



02 

1223 215E12 


LD 

HL, TQF‘ 

03 

1226 223211 


LD 

< QDPC > , HL 

04 

1229 2A0411 


LD 

HL, (QSIZE) 

95 

122C 223411 


LD 

(QDPE), HL 

06 

122F 210381 


LD 

HL, 0183H 

37 

1232 223811 


LD 

(QDPA*), HL 

08 

1235 

? 



89 

1235 CD10E0 


CALL 

QDIQS 

10 

1238 3821 


JR 

C , QDCMT 1 

11 

123A 




12 

123A CD0908 


CALL 

HL 

13 

123D 210411 


LD 

HL, DT ADR 

14 

1240 118211 


LD 

DE, SIZE 

15 

1243 018600 


LD 

BC , 0086H 

16 

1246 EDB0 


LD IR 


17 

1248 




18 

1248 CD2180 


CALL 

URIHF 

19 

124B 380E 


JR 

C, QDCMT 1 

20 

124D 215E12 


LD 

HL, TOP 

21 

1258 220411 


LD 

(DT ADR), HL 

22 

1253 CD2408 


CALL 

WRDAT 

23 

1256 3803 


JR 

C, QDCMT 1 

24 

1258 C30812 


JP 

QDCMT8 


125B 

? 




125B C35EEA 

QDCMT l: 

JP 

STIX 

7*7 

125E 

TOP: 

DEFS 

00H 

28 

125E 


END 
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DT ADR 

1104 

EXADR 

1106 

FILSCH 

EEF7 

FNINP 

ECSD 

HDPCL 

F 25F 

MSGLD 

EE91 

HAME 

10F1 

NL 

0009 

QDCMT0 

1288 

QDCMT 1 

1 25 B 

QDIOS 

E010 

QDPA 

1130 

QDPC 

1132 

QDPE 

1134 

QDRCK 

EF‘^7 

QSIZE 
WR INF 

1104 

0021 

S.IZE 

1102 

STIX 

EA5E 

TOP 

125E 

WRDAT 

8824 



Faire Shift Break et entrer, par M, à partir de 
80EC, les octets : 

note : le dernier octet est dans 8132) 


CA 6D 28 PE E 6 
20 03 23 18 06 
CO 5A CI C9 72 


C2 P4 27 CD 93 
CD AE 6B CD 9C 
PE 21 28 05 PE 


57 CD BB 4C PE 
57 CP C3 P4 27 
3B C3 BD 20 CD 


28 D2 00 25 32 
3A AD 76 CB 07 
DI 21 23 C3 B4 


OE 00 72 PE 29 
D2 03 25 DI CD 
20 


Faire Shift Break et, par la commande S, avec 
le nom « Super Basic 6.2 » d'adresse de départ 
0000, d'adresse de fin 7ABE et d'adresse 
d'exécution 0000, réenregistrer le Basic. 

On vérifiera que EXP fonctionne maintenant 
correctement. 

De plus, on remarquera que maintenant PRINT 


A§ ! B§ ! est équivalent à PRINT A§ : PRINT 
B§ : PRINT A, c'est-à-dire que ! force le pas- 
sage au début de la ligne suivante. 

Enfin, on pourra essayer le petit programme 
suivant : 

pour voir l'effet de INPUT TAB (qui ne fonc- 
tionnera pas en PLOT ON (TAB sera négligé)). 


10 CLS 
20 REPEBT 

30 INPUT T ABC 1 0j 73 "Hess âge ï " 

40 PRINT TABC 1 2, 93A$ 

50 UNTIL 0 

B. KOKANOSKI 


LEMZ 

BIEN TEMPERE 

Un Shorpenlier allemand 
inconnu nous a fait parvenir ce 
programme musical bien adapté 
au générateur sonore du MZ 
800 . 

Il l'a intitulé PRELUDE n° 1 car il envisage une 
longue suite de préludes et fugues réunies sous 
un même titre : le MZ bien tempéré. Elle sera 
destinée à acquérir une meilleure maîtrise de 
l'instrument MZ et servira de référence aux 
générations de futurs MZ'istes mélomanes. Sou- 
haitons un franc succès à cette entreprise et à 
son auteur : J.-S. Bach. 


5 TEMP05 
7 ’ RESTORE 230 
10 READ B*,C*,D$ 

20 I FB$= " F " THENEND 
30 MUSIC B*;C*5D$ 

40 GOTO 10 

50 DAT A" 03 M6 SO VI 5" 

60 DATA "03 M10 SO VI 4" 

70 DATA "03 M14 SO V13" 

80 DATA " R3G 1 +C+EG+C+ER3G 1 +C+EG+C+ER3A 1 +D+FA+D+FR3A 1 +D+FA+D+FR3G 1 +D+FG+D+FR3G 1 +D+ 
FG+D+FR3G 1 +C+EG+C+ER3G 1 +C+EG+C+ER3A 1 +E+AA+E+AR3A 1 +E+AA+E+A " 

90 DATA "R1E7EDDDDEEEE6" 

100 DAT A " C7CCC-B— BCCCC " 

110 D AT A " R3#F 1 A+D#F A+DR3#F 1 A+D#F 1 A+DR3G 1 +D+GG+D+GR3G 1 +D+GG+D+GR3E 1 G+CEG+CR3E 1 G+C 
EG+CR3E 1 G+CEG+CR3E 1 G+CEG+CR3D 1 #F+CD#F+CR3D 1 #F+CD#F+CR3D 1 GBDGBR3D 1 GBDGB " 

1 20 DATA "RI D7DDDCCCC-A— A-B-B6 " 

1 30 DATA "C7C-B-B-B-B-A-A-D-D-G-G " 

1 40 DATA " R3E 1 G+#CEG+#CR3E 1 G+#CEG+#CR3D 1 A+DDA+DR3D 1 A+DD A+DR3D 1 FBDFBR3D 1 FBDFBR3C 1 G 
+CCG+CR3C 1 G+CCG+CR3-A 1 CF-ACFR3-A 1 CF-ACFR3-A 1 CF-ACFR3-A 1 CF-ACF " 

1 50 DATA "RI -#A7-#A— A-A— #G— #G-G-G“-F-F-F-F6 " 

1 60 DATA " -G7-G— F-F— F-F-E— E-E-E-D— D " 

1 70 DATA " R3—G 1 -BF-G-BFR3-G 1 -BF-G-BFR3--G 1 CE-GCER3-G 1 CE-GCER3-# A 1 CE-#ACER3-#A 1 CE-# 
ACER3-A 1 CE-ACER3-A 1 CE-ACER3-A 1 C#D-AC#DR3-A 1 C#D-AC#DR3-B 1 C#D-BC#DR3-B 1 C#D-BC#D " 

1 80 DATA " R 1 -D7-D-E-E-G-G— F-F— C-C-#D-#D6 " 

1 90 DATA " 02-G7— GCCCC-F-F— #F-#F-G-G " 

200 DATA " R3-B 1 CD-BCDR3-B 1 CD-BCDR3-G 1 -BD-G-BDR3-G 1 -BD-G-BDR3-G 1 CE-GCER3-G 1 CE-GCER 
3— G 1 CF-GCFR3-G 1 CF-GCFR3-G 1 -BF-G-BFR3-G 1 -BF-G-BFR3-A 1 C#F- AC#FR3-A 1 C#F- AC#F " 

210 DATA " R 1 — F7— F— F— F— E-E-D-D— D— D— #D-#D6 " 

220 DAT A " G 1 #G#GGGG6GGGGGG " 

230 DATA " R3-G 1 CG-GCGR3-G 1 CG-GCGR3-G 1 CF-GCFR3-G 1 CF-GCFR3-G 1 -BF-G-BFR3-G 1 -BF-G-BFR 
3-G 1 -#AE-G-#AER3-G 1 -#AE-G-#AER3-F 1 -ACFC- AC- A-F-A-F-D-F-DR3G 1 B+D+F+DB+DBGBDFEDM25 
+C9" 

240 DATA " 02R 1 E7EDDDDCCC6R 1 C7R 1 -B6R 1 B7M25C9 
250 DAT A " 0 1 G7GGGGGCCCCCCM25C9 
1000 DATAF » F » F 


S.B. 





FLIPPER 


FLIPPER est un long programme 
en Langage Machine qui vous 
permettra d'économiser bon 
nombre de pièces de 5 Francs et 
une quantité non moins considé- 
rable de consommations à votre 
bar favori. 

Mais avant, il faut l'entrer dans 
votre MZ... 

Votre courrier fait souvent état de nombreux 
problèmes rencontrés lors de la saisie de pro- 
grammes en Langage Machine. Pour y remé- 
dier, nous avons mis au point une méthode 
I.N.F.A.I.L.L.I.B.L.E. qui vous permettra d'en- 
trer n'importe quel programme L.M. en élimi- 
nant toutes les possibilités d'erreurs de saisie. 
Pour cela, tapez et sauvegardez séparément les 
2 programmes Basic SAISIE HEXA et LECTURE 
HEXA, ce sont les deux utilitaires de saisie et 
de vérification. 

Un rapide coup d'œil sur le listing de FLIPPER 
vous permet de constater qu'il est présenté 
sous forme de blocs successifs de 1 28 octets. 
Chaque bloc comprend 16 lignes de 8 octets 
(2 caractères Hexa) suivis d'un neuvième octet 
séparé par « : ». Cet octet supplémentaire sert 
à vérifier que chaque ligne entrée ne comporte 
pas d'erreur. Une 1 7 e ligne est également pré- 
sente en bas du bloc, elle rassemble 2 vérifi- 
cations supplémentaires. 

SAISIE : 

Entrez votre programme SAISIE HEXA et tapez 
RUN. Le message « ADRESSE DEPART :» 
apparait, il vous demande l'adresse du premier 
octet du programme à entrer ; tapez, dans le 
cas de FLIPPER AF 80 (adresse de départ du 
premier bloc). Le programme affiche ensuite 
l'adresse donnée et attend l'entrée d'une ligne. 
Tapez alors les 16 caractères de la première 
ligne, sans espace, puis CR. Apparait, alors, 
en haut de l'écran, la ligne correctement for- 
matée, suivie du 9 e octet qui correspond à la 
somme des 8 octets déjà entrés. Si l'un d'en- 
tre eux est faux, la somme sera fausse. Si cette 



700/800 


ligne est exacte, passez directement à la ligne 
suivante qui est attendue, en bas de l'écran 
avec affichage de l'adresse correspondante. Si 
la ligne précédente est fausse, tapez simple- 
ment un « . » et CR, l'adresse prendra la valeur 
de cette ligne et il vous suffira de la retaper. 
Après l'entrée de la 1 6 e ligne, une dernière ligne 
d'informations s'affiche. Les 8 premiers octets 
correspondent à la somme de chaque colonne 
du bloc. L'octet de droite représente la somme 


globale de tous les octets de vérification. Pour 
chaque bloc de 1 28 octets, nous avons donc 
3 vérifications distinctes : horizontale, Verti- 
cale et Globale. Si tous ces octets de vérifica- 
tions correspondent à ceux du listing, ce bloc 
est obligatoirement correct et vous pouvez 
répondre « 0 » à la question « OK ? » et pas- 
ser au bloc suivant ; cela jusqu'à la fin du 
programme. 


10 DI MW (15) j U < 15) 

20 CLSï CURSORO, 20 

30 INPUT "ADRESSE DEPART : " ; AD* 

35 I FLEN ( AD* ) < >4THENBEEP s GOTO 20 
40 AD=VAL("*"+AD*) 

50 CURSORO, 22 SPRINT" 

60 PRINT ,, li" > HEX* (AD) ; "s "! :L=L+l!T=0 
70 INPUT" "5 A* 

80 I FA*= " . " THENL=L-2 s AD= AD-8 ï FOR I = 1 TO 1 5STEP2 : VV ( I ) = V V ( I ) -U ( I > : NE X T : G0T050 
115 PRINT 

120 I FLEN ( A* > < > 1 6THENBEEP s PR I NT " |ï" ; : L=L-1 : G0T050 

130 CURSORO, l_ï PRINTHEX* (AD) ; ; : J=0: AS*="" 

140 FÜRI=1T015STEP2 

150 V=VAL( "*"+MID* <A*, 1.2) ) 

160 POKEAD+ J , V 

170 T=T+V: U ( I > =V: W ( I ) =W ( I ) +U ( I > 

180 H*=HEX*(V) i I FLEN ( H* ) = 1 THENH*= " O " +H* 

190 PRINTH*; " " ; : J=J+1 
200 I FV< 32THENV=*2E 
210 AS*=AS*+CHR*(V) 

220 NEXT 

230 IFT<16THENT*="Ü"+HEX*(T> ! ELSE T*=RIGHT* (HEX* (T) » 2) 

240 PRINT"B! "ST*? " "SAS* 

250 IFL< 16THEN390 
260 DEEP 
270 CURS0R5, IB 
280 FOR I = 1 TO 1 5STEP2 

300 VV*=HEX* ( W ( I ) ) s IFW (IX 16THENW*="0"+W* 

310 PR I NTR I GHT * < W* , 2 ) S " "S 
320 TV=TV+VV(I) 

330 NEXT 

340 TV*=HEX* (TV) s IFTV< 16THENTV*="0" 

350 PRINT"B ! "SRIGHT* (TV*, 2) S s TV=0 
360 CURS0R32, IB: INPUT" OK? " S RE* 

363 I FRE*= " 0 " THEN37 0 
365 I FRE*= " N " THEN20 
368 BEEPï GQT0360 

370 F0RI=lT018îCURS0R0, I SPRINT" 

380 FOR I ^ 1 TO 1 5STEP2 s W ( I ) =0s U ( I ) = 0 s NEXT s L=0 
390 AD=AD+8s G0T050 


3 DIMTH (7) 

5 CLS s INPUT" IMPRIMANTE ? (O/N) "5 IP* 

10 CLS s INPUT "ADRESSE DEPART 
<4 car. HEXA) s " ; AD* 

1 5 AD= VAL ( " * " + AD* ) s VT=0 

100 I F I P*® " 0 " THENPR I NT /P " 

103 F0RI»0T015s T*=HEX* (AD) +" s » 

105 G0SUB340 

1 1 0 FOR J =0T07 s I F I =OTHENTH ( J ) =0 
120 V=PEEK(AD+J) 

130 GOSUB 300ST*=V*+" " 

140 G0SUB340 

150 TV=TV+V 

155 TH ( J ) =TH < J ) + V 

160 NEXTs AD=AD+8s T**" s » s G0SUB340 

170 V=TV! GOSUB 300sGOSUB320 

190 PR I NTV* s TV=0 s I F I P*= " 0 " THENPR I NT /P V* 

200 NEXTs PRINT* IFIP*="0"THENPR INT/P 

205 T*=" "!G0SUB340!VT=0 

210 F0RI=0T07 

220 V=TH ( I ) s VT»VT+ V s GOSUB 300 s G0SUB320 
230 T*=V*+" " s GÜSUB340 
240 NEXT 

250 T*="s "SGOSUB340 

260 V=VT ! G0SUB300 ! G0SUB320 

270 PR I NTV* s I F I P*= " 0 " THENPR I NT /PV* 

275 CURS0R0,20: INPUT "SUIVANT ? "S RE* 

280 I FRE*= " 0 " THENPR I NT " H" s GOTO 1 00 
285 I FRE*< >"N" THENBEEP t G0T0275 
290 END 

300 V*-HEX * ( V ) ! I FLEN ( V* ) ■ 1 THENV*= " O " + V* 
310 RETURN 

320 I FLEN ( V* ) >2THENV*»R I GHT* ( V* , 2 ) 

330 RETURN 

340 PRINTT*; * IF IP*="Ü" THENPR INT/PT*; 

350 RETURN 


ENREGISTREMENT : 

Lorsque la saisie est terminée, vous allez devoir 
enregistrer ce programme, pour cela passez 
sous moniteur par la commande « BYE » (CR) 
puis tapez : 

S AFFO CCFO AFFO : FLIPPER 
La sauvegarde s'effectuera à partir de l'adresse 
AFFO (adresse effective de début du pro- 
gramme), jusqu'à CCFO (adresse de fin du pro- 
gramme) et l'exécution du programme sera 
automatique à partir de l’adresse AFFO. Par 
sécurité, vérifiez le bon enregistrement par la 
commande « V ». 

RELECTURE : 

Si tout s'est bien passé, vous pouvez exécu- 
ter le programme en le chargeant dès l'allumage 
du MZ. En cas de problème, rechargez votre 
BASIC puis le programme LECTURE HEXA 
Avant de taper RUN, tapez LIMIT $AF80 (CR) 


% 



et chargez votre flipper par LOAD« FLIPPER ». 
Tapez RUN. Vous allez maintenant pouvoir véri- 
fier un à un tous les blocs du programme L.M. 
que vous avez entré. Si vous utilisez une impri- 
mante, vous obtiendrez la copie exacte du lis- 
ting original. Dans tous les cas, vous pourrez 
vérifier chaque bloc à l'écran, noter les éven- 
tuelles erreurs et les corriger ensuite à l'aide 
de SAISIE HEXA. 


Lorsque vous utilisez SAISIE ou LECTURE 
HEXA, la mémoire de votre MZ est configurée 
ainsi : 

FFOO 


AF80 


0000 


PROGRAMME 

LM 

CREE 


SAISIE ou LECTURE 
HEXA 


BASIC 

+ 

MONITEUR 

RAM 


M2 800 


Vous pouvez donc passer de l'un à l'autre des 
utilitaires BASIC sans modifier le programme 
L.M, créé à condition que celui-ci soit placé au 
delà de l'adresse AF80. Cette valeur peut être 
abaissée pour le MZ 700 dont le BASIC est 
moins gourmand en mémoire. Nous utilisons 
ces 2 programmes fréquemment et avec suc- 
cès pour taper de longs programmes L.M. en 
provenance de revues japonaises (c'est le cas 
de FLIPPER), n'hésitez pas à expérimenter cette 
méthode car elle vous servira pour la saisie 
d'autres excellents programmes L.M. 

S. B. 


AF Boü OO 

00 

00 

0,;» 

00: 

00 

00 

00 

s 00 

AF BBS OD 

00 

00 

00 

00 

00 

00 

00 

: 00 

AF 90 a 00 

00 

00 

00 

00 

00 

00 

00 

s 00 

AF98: 00 

00 

00 

00 

00 

00 

00 

00 

: 00 

A F' AO : 00 

00 

00 

00 

00 

00 

00 

00 

: 00 

AF AB: 00 

00 

00 

00 

00 

00 

00 

00 

: 00 

AF'BOs 00 

00 

00 

00 

00 

00 

00 

00 

s 00 

AF BR: 00 

00 

00 

00 

00 

00 

00 

00 

: 00 

AF CO : 00 

00 

00 

00 

00 

00 

00 

00 

: 00 

AF CB : 00 

00 

00 

00 

00 

00 

00 

00 

s OO 

AF DO: 00 

00 

00 

00 

00 

00 

00 

00 

: 00 

AF DS : 00 

00 

00 

00 

00 

00 

00 

00 

: 00 

AFEO: 00 

00 

00 

00 

00 

00 

00 

00 

: 00 

AFEBï 00 

00 

00 

00 

00 

00 

00 

00 

: 00 

AFF 0 : 21 

00 

BO 

1 1 

E4 

2F 

01 

79 

s 6F 

AF F Bs IC 

ED 

BO 

C3 

E4 

2 F' 

00 

00 

s BF 

31) 

ED 

60 

D4 

CB 

SE 

01 

79 

s FE 

B 000 : C5 

D5 

ES 

DD 

ES 

FD 

ES 

FS 

: 18 

BOOB : CD 

00 

30 

CD 

OA 

30 

00 

00 

s 04 

B0 1.0: 00 

00 

CD 

1D 

30 

CD 

31 

30 

s 48 

B 0.1. S: C3 

3E 

31 

00 

3E 

16 

CD 

12 

: 65 

B020: 00 

C9 

00 

00 

00 

00 

21 

00 

: EA 


B02BSD8 

01 

EB 

03 

3E 

70 

77 

23 

: OC 

B330* 3E 


23 

77 

3E 

44 

23 

77 

:4A 

B030 : OB 

78 

El 

20 

F7 

C9 

00 

00 

: 14 

B338: 23 

23 

23 

3E 

43 

77 

23 

23 

: A7 

B03B : 00 

21 

29 

30 

11 

1F 

DO 

01 

S7B 

B340: 77 

2B 

3E 

OF 

7 ~ 

3E 

44 

32 

: IA 

B040S08 

00 

ED 

BO 

C9 

10 

09 

OE 

: 95 

B348: F6 

DO 

32 

1D 

h 

32 

BA 

DO 

: A2 

B048:00 

02 

01 

OC 

OC 

21 

4 A 

30 

: B6 

B350 : 3E 

5C 

32 

19 

DI 

3E 

80 

32 

: A6 

B050 : 1 1 

46 

DO 

06 

18 

CS 

01 

OA 

: 15 

B358: IA 

DI 

3E 

5D 

32 

IB 

DI 

3E 

: E2 

B058 : 00 

ED 

BO 

E5 

21 

1E 

OU 

19 

: DA 

B360: 43 

32 

FB 

DO 

32 

29 

DO 

32 

: 9D 

B060 : EB 

El 

Cl 

10 

FO 

C9 

5C 

78 

:2A 

B36B : 69 

DO 

32 

44 

DO 

32 

B5 

DO 

: 36 

B068: 78 

78 

78 

7 B 

78 

78 

78 

5D 

: A5 

B370: 32 

DD 

DO 

32 

DC 

DO 

32 

DE 

: CD 

B070: 79 

08 

09 

00 

13 

03 

OF 

12 

: Cl 

B378: DO 

32 

05 

DI 

32 

B4 

D3 

32 

: C3 

B078: 05 

79 

79 

00 

00 

00 

00 

OC' 

: F7 



















FB 

1D 

84 

BE 

74 

89 

9F 

E7 

: DD 

32 

85 

FE 

49 

2C 

CO 

82 

A3 

: OF 


RR 

— 

— 

— 

RR 

-RR 

RR 

-RRR 


— 

— 


— 

— 

— 

— — — 


B380: 8F 

DO 

32 

90 

DO 

32 

B7 

DO 

: AA 

Boaos oo 

00 

O O 

79 

79 

20 

20 

20 



B388: 3E 

56 

32 

2A 

DO 

32 

31 

DO 

: F3 

B0B8: 20 
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IMSURMZ 


A partir d'un certain niveau de 
connaissances, la programma- 
tion de tout microprocesseur ne 
peut se concevoir sérieusement 
sans l'aide d'un outil indispen- 
sable au programmeur : L'AS- 
SEMBLEUR. Cet utilitaire permet 
une programmation souple et 
conversationnelle du micropro- 
cesseur ; il évite les calculs fas- 
tidieux de certaines instructions 
et permet une exécution du pro- 

3 ranime créé sous contrôle 
irect du programmeur. 

Cet article n'est autre que la traduction d'un 
assembleur type maintenant largement dif- 
fusé : ZEN. Il répond à la demande de nom- 
breux utilisateurs rebutés par la notice Anglaise 
et constitue une étude de toutes les comman- 
des et possibilités que l'on peut attendre d'un 
assembleur Z80. La syntaxe de programmation 
de ZEN est standard puisqu'elle répond aux nor- 
mes imposées par le concepteur du Z80, on la 
retrouve sur tous les assembleurs Z80 du 
marché. 

INTRODUCTION 

ZEN comprend un éditeur, un assembleur Z80 
et un correcteur symbolique. L'éditeur vous 
permet de créer un programme SOURCE qui 
comprend des lignes d'instructions en codes 
exécutables par Z80 et les place en mémoire. 
Le correcteur permet d'exécuter, sous votre 
contrôle, le programme OBJET ainsi créé. Il se 
réfère à une table de symboles créés par le pro- 
grammeur sous éditeur et permet une correc- 
tion rapide et facile des éventuelles erreurs. 

LES COMMANDES 

Après chargement de ZEN et apparition du 
message d'attente (ZEN > ), vous pouvëz choi- 
sir une des commandes suivantes qui seront 
ensuite décrites en détails : 

* Edition programme source 
Z... Effacement de ligne (s) 

E... Entrée du programme SOURCE 



N. ..Modification d'une ligne de SOURCE 

• Position dans le programme SOURCE 
D... Descend de n lignes dans le programme 

U. ..Monte de n lignes dans le programme 
T... Déplacement au numéro de ligne spécifié 

L. .. Recherche d'un mot dans le SOURCE 

P. . .Affiche n lignç du SOURCE à l'écran 

B. .. Permet de se placer à la fin du programme 
SOURCE 

• Commandes générales du programme 
SOURCE 

A... Assemble le programme SOURCE créé 

H. ..Donne la dimension du SOURCE 
K. ..Efface le SOURCE en mémoire 
S... Affiche la table des labels 

• Gestion de la cassette 
R... Lit un programme 

V. .. Vérifie un programme 

W. .. Ecrit un programme 

• Commandes du programme OBJET 

C. .. Déplace un bloc de mémoire 

F. ..Remplit un bloc de mémoire 

G. ..Lance l'exécution d'un programme OBJET 

I. ..Lit un port E/S du Z80 

O. .. Ecrit dans un port E/S du Z80 

M. .. Modifie le contenu de la mémoire 

Q. .. Affiche un bloc de mémoire en HEXA et 
ASCII 

X. . .Affiche les registres du Z80 

• Conversion 

/...Conversion de valeurs en décimal-HEXA 
L'appui de CR seul provoque l'effacement de 
l'écran 

SYNTAXE DES COMMANDES 

Pour choisir une commande, tapez la lettre cor- 
respondante, suivie, éventuellement des para- 
mètres nécéssaires, puis CR. Les paramètres 
peuvent prendre la forme suivante : 
Caractère : 1 caractère simple 
Mot : Une suite de caractères 
Numérique : Un nombre, label ou expression 
Registre : Voir commande X 
Toutes les commandes recevant un paramè- 
tre adopteront un paramètre par défaut si ce 
paramètre n'est pas indiqué. 

Si ZEN ne comprend pas une commande, il affi- 
che le message « HUH? » et attend la com- 
mande suivante. 

LA SAISIE DE PROGRAMME SOURCE 

Les règles générales suivantes s'appliquent 
pour toute entrée au clavier : 

1 . ZEN ne fait rien si vous tapez CR 

2. DEL efface le caractère précédent 

3. L'effacement n'est possible que jusqu'au 
début de la ligne de commande 



4. Une ligne de SOURCE ne peut dépasser une 
ligne d'écran 

5. Les touches GRAPH et APLHA sont 
opérationnelles 

6. Toutes les autres touches sont considérées 
comme des caractères 

VALEURS NUMERIQUES 

Une valeur numérique peut être sous forme 
décimale, Hexa, Octale ou sous forme d'une 
expression arithmétique. La valeur entrée est, 
par défaut, décimale. Les valeurs HEXA doivent 
être précédées de « H », les valeurs octales, 
de « 0 ». Toute valeur numérique doit com- 
mencer par un chiffre de 0 à 9, il faudra donc 
faire précéder certaines valeurs Hexa d'un 0. 
Ex. LD HL, HODOOO. Un LABEL ou un signe 
entre « » peuvent également correspondre à 
une valeur numérique. Les opérateurs autori- 
sés dans les expressions arithmétiques sont les 
suivants : 

+ Addition 
- Soustraction 
* Multiplication 
/ Division 
& ET logique 
. OU logique 

Une expression arithmétique peut remplacer 
n'importe quelle valeur numérique. Elle est cal- 
culée en 1 6 bits non signés (résultat entre 0 
et 65535) et ne tient pas compte des dépas- 
sements de capacité. 

COMMANDES DE L'EDITEUR SOURCE 

La majorité des commandes nécessite un para- 
mètre numérique à sa suite, il est indiqué « nn » 
dans les explications qui suivent. 

POINTEUR est une valeur fictive indiquant la 
ligne ou l'on se trouve dans le programme 
SOURCE. 

-Z- Efface nn lignes du programme SOURCE à 
partir de la ligne en cours 
Z74 Efface 74 lignes 
Z Efface 1 seule ligne 

Si l'effacement dépasse la fin du programme, 
le message EOF (fin de programme) apparait, 
sinon la première ligne qui suit l'effacement 
apparait. 

-E- Entrée de lignes dans un programme 
SOURCE. Zen affiche un numéro de ligne. 
Quand elle est entrée, ZEN affiche le numéro 
suivant, ETC. Pour sortir de l'éditeur, tapez« , » 
à la suite du numéro affiché. En cas d'inserion 
de ligne dans un programme, ZEN décale auto- 
matiquement les lignes suivantes du 
programme. 


-N- Vous permet de modifier la ligne nn. La ligne 
est affichée 2 fois, sur la seconde, le curseur 
est en fin de ligne et vous permet les correc- 
tions. Cette nouvelle ligne remplacera l'an- 
cienne après CR. 

COMMANDES DU POINTEUR 

-D- Descend le pointeur de nn lignes dans le 
SOURCE. 

DI 3 descend le pointeur de 13 lignes. 

D descend d'une ligne. 

EOF apparait dans les mêmes conditions que Z. 
-U- Remonte le pointeur de nn lignes. Affichage 
de « SÛF » si le pointeur arrive en début de 
programme. 

-T- Déplace le pointeur à la ligne nn. Si hn n'est 
pas spécifié, le pointeur se place à la ligne 1 . 
T52 Déplace le pointeur à la ligne 52. 

T Déplace le pointeur à la ligne 1. 

-B- Place le pointeur en fin de programme 
SOURCE et affiche « EOF ». 

Pour obtenir l'affichage des 20 dernières lignes 
de votre programme SOURCE, tapez B (CR) 
U 20 (CR) et P22 (CR). 

-L- Recherche une chaîne de caractères con- 
tenue dans le programme SOURCE. 

LDEC HL (CR) place le pointeur en début de 
ligne contenant DEC HL et affiche cette ligne. 
Si la chaîne n'est pas trouvée, « EOF » s'affi- 
che. La recherche s'effectue à partir de la ligne 
en cours jusqu'à la fin du programme. 

-P- Affiche nn lignes du programme SOURCE 
à l'écran. Le pointeur se place sur la dernière 
ligne affichée et permet l'affichage éventuel 
des lignes suivantes. 

P22 Affiche 22 lignes à l'écran. 

P Affiche la ligne en cours. 

COMMANDES GENERALES DE L'EDITEUR 
SOURCE 

-H- Affiche l'adresse de début du programme 
SOURCE (SOF), l'adresse de fin (EOF) et 
l'adresse de fin de mémoire disponible en 
HEXA. Cela permet de connaître la place dis- 
ponible en mémoire. 

-K- Efface intégralement le programme source 
en mémoire. Equivalent à la commande NEW 
du BASIC. 

Il est possible de récupérer un programme acci- 
dentellement effacé par « K », nous le verrons 
plus loin. 

-A- Assemble un programme SOURCE du début 
à la fin. Avant l'assemblage, une option est 
demandée. Taper « V » pour une liste à l'écran 
pendant l'assemblage, « E » pour une liste sur 
imprimante, (CR) pour un assemblage sans 




liste, c'est l'option la plus rapide. Quand vous 
choisissez « E », un titre de programme est 
demandé, il est inscrit sur chaque page d'im- 
pression et vous permet de reconnaître plu- 
sieurs versions successives d'un même 
programme. 

-S- Trie par ordre alphabétique et affiche la liste 
des labels créés lors de l'assemblage. Le tri 
s'effectue sur la première lettre des labels. 
L'édition se fait sur écran par défaut, l'option 
« E » envoie la liste sur imprimante. Il est pos- 
sible d'obtenir une liste sélective des labels ; 
SK (CR) affichera les labels commençant par 
la lettre « K ». 

GESTION DE LA CASSETTE 

ZEN peut lire, écrire ou vérifier des program- 
mes SOURCE ou OBJET sur cassette. Les pro- 
grammes SOURCE sont enregistrés sous forme 
de texte ASCII sans numéro de ligne ; chaque 
ligne est séparée par un code ODH (retour cha- 
riot). Les programmes OBJET sont enregistrés 
sous la forme de fichiers L.M. classiques. 

Les commandes de gestion de la cassette 
sont : 

R (CR) Lit un fichier SOURCE 
V (CR) Vérifie un fichier SOURCE 
W (CR) Ecrit un fichier SOURCE 
RO (CR) Lit un fichier OBJET 
VO (CR) Vérifie un fichier OBJET 
WO (CR) Ecrit un fichier OBJET 
Pour éviter de confondre des fichiers ZEN avec 
d'autres fichiers BASIC ou autres, une bonne 
habitude consiste à se limiter à des titres de 
1 2 caractères suivis de « .SRC » pour un fichier 
SOURCE ou « .OBJ » pour un fichier OBJET. 
-R- Cette commande demande un nom de pro- 
gramme et recherche le titre spécifié ou le pre- 
mier fichier trouvé si le titre n'est pas spéci- 
fié. Les fichiers SOURCE sont toujours lus à la 
suite du programme SOURCE en mémoire, cela 
permet de merger 2 fichiers. Dans le cas con- 
traire, il faut d'abord effacer le programme 
SOURCE déjà en mémoire (K). 

Les programmes OBJET sont chargés à 
l'adresse indiqué sur la cassette lors de l'en- 
registrement, ils ne s'exécutent jamais auto- 
matiquement. Utiliser pour cela la commande 
« G ». 

-V- Doit être utilisé juste après un ordre d'en- 
registrement, il fonctionne de la même manière 
que le VERIFY du BASIC. 

-W- Demande uniquement le titre pour un pro- 
gramme SOURCE. Pour les programmes 
OBJET, les adresses, en HEXA, de début de 
programme (START), de fin de programme 



(STOP), d'exécution de ce programme qui peut 
être différente de celle de début (EXEC), et de 
fonctionnement effectif de ce programme qui 
peut être différente de celle de chargement 
(LOAD). 


COMMANDES SUR LE PROGRAMME 
OBJET 

-C- Déplace un bloc de mémoire situé entre 
l'adresse START et l'adresse STOP et le place 
à partir de l'adresse DESTINATION. Ces 3 para- 
mètres sont demandés. 

-F- Remplit une portion de mémoire située entre 
START et STOP avec une valeur constante 8 
bits appelée DATA. 

-G- Lance l'exécution d'un programme OBJET 
pour vérification ou corrections. 

G4604H Effectue un saut à cette adresse. 
GDEBUT Saute à l'adresse contenue dans le 
Label DEBUT. 

G Saute à l'adresse d'exécution contenue dans 
le programme OBJET lu sur la cassette. 
Cette commande vous permet de placer un ou 
des points d'arrêt (BREAK-POINT) dans votre 
programme, à une adresse déterminée. L'en- 
voi de (CR) à cette demande ne place aucun 
point d'arrêt. Un point d'arrêt est une adresse 
où s'arrêtera l'exécution d'un programme 
OBJET. Tous les registres du Z80 seront sau- 
vegardés à cet endroit donné et vous pourrez 
les examiner par la commande « X ». L'exécu- 
tion du programme pourra reprendre à ce même 
endroit par la commande G (CR). Les points 
d'arrêt servent à exécuter un programme 
OBJET pas à pas et à faciliter ses éventuelles 
corrections ou modifications. 

-I- Lit un port d'entrées/sorties du Z80 et l'af- 
fiche en HEXA et binaire. Certains ports agis- 
sent directement sur le fonctionnement interne 
du MZ, leur utilité doit être bien assimilée avant 
d'être appelée sous peine de possibles 
plantages. 

-O- Ecrit dans un port d'entrées/sorties du Z80. 
Même prudence que pour « I ». 

033H (CR) écrit dans le port 33H la donnée 
demandée par DATA. 

-M- Agit selon le même principe que la com- 
mande « M » du moniteur pour examiner et/ou 
modifier le contenu d'une adresse. Pour sortir 
de cette commande, tapez « . » à l'endroit du 
curseur. 

-Q- Agit selon le même principe que la com- 
mande « D » du moniteur mais n'affiche que 
64 octets à la fois. 

-X- Affiche tous les registres primaires, secon- 
daires et contrôle du Z80. Il est possible de 





modifier individuellement chacun de ces regis- 
tres, 8 ou 1 6 bits en les appelant par Xrr (CR). 
Les pointeurs internes de ZEN : SOF, EOF, et 
ML (début de fichier, fin de fichier et limite 
mémoire) peuvent également être modifiés. 
-?- Convertit une valeur ou expression et l'af- 
fiche en HEXA ou décimal. Cela permet de con- 
vertir rapidement du décimal en Hexa ou binaire 
ou de trouver la valeur d'un LABEL: 

SYNTAXE DE L'ASSEMBLEUR 

ZEN respecte la syntaxe de l'assembleur Z80 
défini par le manuel officiel de la société ZILOG. 
Pour les non initiés, il nécessite impérativement 
l'emploi d'un manuel de référence de program- 
mation du Z80 (La Bible en ce domaine étant 
« LA PROGRAMMATION DU Z80 » par R. ZAK 
aux éditions SIBEX). Chaque ligne d'un pro- 
gramme SOURCE est divisée en 4 zones. Ex : 
ECRAN : LD HL, (CURSEUR) ; Position du 
curseur 
LABEL ECRAN 
Opérateur LD 

Opérande : HL, (CURSEUR) 

Commentaire : Position du curseur. 

Le format de la ligne est libre à condition de 
respecter la ponctuation et les espaces : « : » 
entre LABEL et OPERATEUR, espace entre 
OPERATEUR et OPERANDE, « ; » entre OPE- 
RANDE et COMMENTAIRE. L'une ou plusieurs 
de ces zones peuvent être omises dans une 
ligne à condition de ne jamais séparer OPERA- 
TEUR et OPERANDE. 

• Commentaires : ils sont ignorés par l'assem- 
bleur, ils doivent commencer par un « ; » et se 
terminer en fin de ligne. 

• Opérateur : il y en a 74 différents (LD, CALL, 
JP, etc). ZEN utilise, en plus, des PSEUDO OPE- 
RATEURS, nous y reviendrons. 

• Opérande : le nombre d'opérandes dépend 
de l'opérateur : 

NOP...Pas d'opérande 
CP...1 opérande 
BIT... 2 opérandes 
JR...1 ou 2 opérandes 
RET...0 ou 1 opérande 
Un opérande peut être : 

Un nom de registre (A,B,HL,IY,..), un code con- 
dition (Z,NZ,C,PO,V,..) ou une valeur numéri- 
que 8 ou 16 bits. 

V et NV sont des codes condition spéciaux à 
ZEN, ils améliorent l'utilisation du bit P/V dans 
les tests de dépassement de capacité. 

• Label : le LABEL est une des grandes forces 
de l'assembleur. Il permet de donner un nom 
à un opérande ou à une zone de programme. 


Il évite ainsi les calculs de sauts relatifs et per- 
met de reloger automatiquement toutes les 
commandes de saut. 

Symbole : nom associé à une valeur qui peut 
être utilisé de 2 façons : 

1. en utilisant le pseudo opérande EQU, cela 
permet d'assigner une valeur fixe à un LABEL. 
Ex: 

CR: EQU 13 

2. en le plaçant au début d'uee portion de pro- 
gramme ou d'un sous-programme. Celui pourra 
ainsi être appelé par son nom plutôt que par 
son adresse. Il est en effet beaucoup plus facile 
de programmer CALL MENU que CALL 
H0A679H. Un symbole doit commencer par 
une lettre majuscule et se poursuivre avec d'au- 
tres lettres majuscules ou chiffres. Sa longueur 
n'est pas limitée mais elle sera réduite à 7 
caractères lors de l'assemblage. Un symbole 
doit impérativement être suivi de « : ». 

• Pseudo- opérateurs : ils ne font pas partie des 
instructions du Z80 mais sont compris et utili- 
sés de la même manière par l'assembleur : 
END.. .Fin de programme - Pas d'opérande 
DS. ..Place réservée - 1 opérande 

DW... Définit un mot - 1 opérande 

DB.. .Définit un ou des octets - Opérandes 

variables 

EQU. ..Donne une valeur à un LABEL - 1 
opérande 

ORG... Définit l'adresse d'origine de l'assem- 
blage d'un SOURCE - 1 opérande 
LOAD.. .Adresse de chargement d'un prog. 
OBJET - 1 opérande 

• END doit se trouver impérativement à la fin 
d'un programme SOURCE pour indiquer la fin 
effective de ce programme, l'absence de END 
provoque un message d'erreur. 

• DS réserve un nombre défini d'octets dans 
un programme qui peuvent servir à stocker des 
informations ou du texte. 

• DW définit une valeur 1 6 bits dans 2 adres- 
ses successives. 

• DB définit une suite d'octets dans des adres- 
ses successives. Les valeurs peuvent être des 
expressions ou du texte. Ex : 

MESSAGE: DB « SHARPENTIER », «S», 
ODH 

La longueur du message est infinie ; chaque 
code différent doit être séparé par une « , ». 

• ORG définit l'adresse d'origine ou ira se pla- 
cer le programme OBJET lors de l'assemblage. 
L'assemblage peut s'effectuer en différents 
endroits de la mémoire si le SOURCE possède 
plusieurs ordres ORG différents. 

LOAD définit l'adresse d'origine pour le calcul 


des adresses et les valeurs des différents 
LABELS lors de l'assemblage. 

GESTION DES ERREURS 

Lorsque l'assembleur rencontre une erreur, 
voici ce qu'il se passe : 

1. Arrêt de la procédure d'assemblage 

2. Affichage d'un message d'erreur 

3. Le pointeur se place sur la ligne incorrecte 

4. La ligne est affichée 

5. ZEN attend une commande 

Vous pouvez corriger l'erreur et réassembler. 
Utilisez « N » pour modifier la ligne erronnée. 
En aucun cas, une erreur d'assemblage ne peut 
provoquer un plantage de ZEN et de son pro- 
gramme SOURCE. 

L'assemblage travaille à une vitesse d'environ 
400 lignes/minute. 

Les différents messages d'erreurs sont : 
UNDEFINED Vous avez utilisé un LABEL non 
déclaré 

SYMBOL EQU n'a pas de LABEL ou le LABEL 
n'a pas de nom 

RESERVED Votre nom de LABEL est un mot 
réservé 

FULL La table des LABELS est pleine 
DOUBLE SYMBOL Un LABEL a été déclaré 2 
fois 

EOF II manque l'instruction END en fin de 
SOURCE 

ORG! L'adresse ORG n'est pas définie 
HUH? ZEN ne comprend vraiment rien à cette 
ligne 

OPERAND L'opérande est incompatible avec 
l'instruction a exécuter. 

L'assembleur détecte toutes les erreurs, n'hé- 
sitez donc pas à faire de nombreux essais, vous 
ne risquez rien. 

LISTE D'ASSEMBLAGE 

ZEN édite 2 types de listes : 40 colonnes pour 
l'écran et 80 pour l'imprimante. Ce format peut 
être modifié (80 colonnes écran ou 1 32 colon- 
nes imprimantes) en modifiant la valeur du 
LABEL COMWIDTH dans le listing de la notice. 
D'autres modifications sont également parues 
dans nos précédents bulletins concernant l'uti- 
lisation d'imprimantes CENTRONICS. 

L'arrêt momentané de la liste est possible par 
la touche SHIFT, il reprend jusqu'à la fin de 
page par un nouvel appui sur cette touche, cela 
permet de changer de feuille dans les impriman- 
tes feuille à feuille. La touche « Q » interrompt 
la procédure d'assemblage. Lors de l'édition, 
les labels et commentaires trop longs sont tron- 
qués pour obtenir une ligne de 80 caractères 
maximum. 
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* Un second assembleur plus 
performant est maintenant disponible 
sur MZ 700/800 =AREM Z80 
voir Bulletin n° 1 6-service logiciels. 
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Bien sûr, tout cela peut paraître compliqué au néophyte de ce langage qu'est l'assembleur. Comme 
tout langage, l'assembleur s'apprend et, après quelques heures de dur labeur, vous vous sentirez 
vite à l'aise dans vos octets et apprécierez alors l'aide immense qu'apporte un tel utilitaire dans 
l'élaboration de vos programmes en langage machine. 

Alors, un seul conseil, accrochez-vous, les résultats obtenus en valent la peine. 

Sylvain BIZOIRRE 
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TABLEUR 


A PROPOS 
DU TABLEUR 

(SHARPENTIER DE DECEMBRE) 


Vous qui avez eu le courage de rentrer le pro- 
gramme dans votre ordinateur préféré (le 
MZ-80B bien sûr), avez sûrement eu la surprise 
de voir apparaître sur l'écran des yens indési- 
rables. 

Pour éviter ces désagréments, quelques modi- 
fications vous sont proposées. Elles permet- 
tront une utilisation plus agréable de votre 
tableur. 

ligne 150: après M0$ = «A» placer 
G0SUB950 

ligne 350 : en début de ligne placer 
G0SUB1 320 

introduire les lignes suivantes : 

950 X = C-C0:Y = L-L0:IF 

(X < 0) + (X > LX) + (Y < 0) + (Y > LY) THEN970 
955 RETURN 

1320 Al $ = A$ 

(CO+XO,LO+YO):IFA1 $ = « »THEI\IA1 $ =T$ 
1322 CURSOR 

3 + 9*(X0 + CD),3+Y0+LD:PRINTLEFT$(A- 
1$ + « »,9)RETURN 

modifier les lignes suivantes : 

2000 C — CB:L = LB:M0$ = « N »GOSUB950 
2005 CURSOR 13,1 (le reste de la ligne est 
sans changement) 

2135 IF(R = 27)*(VAL(0P$(0))<>0)THEN.... 
221 0....IFF$(R1 ,V) < > « A »... 

2255 NEXTL,C:KM=VAL 

(0P$(0)):IFKM< > OTHENGOSUB3460 
2260 X = XI :Y = Y1 :G0SUB1 300:GOT02005 

D'autre part, et cela concerne tous les basics, 
il a semblé intéressant de donner quelques 
explications sur la partie interprétation des for- 
mules des calculs numériques, avec les restric- 
tions dues à l'utilisation dans le tableur. 


EXPLICATIONS SUR LES FONCTIONS 

PROGRAMMEES 

Principe : 

La case « opération » contient une chaîne 0P$ 
(sans espace intermédiaire), correspondant à 
l'opération à réaliser. Le résultat est alors placé 
dans la case pointée par le curseur. 

Cette chaine permet de traiter : 

• des nombres écrits façon « Basic », avec le 
. décimal, 

• les quatre opérations + - 1 /, et les 
parenthèses, 

• des variables, correspondant au contenu des 
cases du tableau. Ces variables seront écrites 
sous forme d'une lettre suivie de deux chiffres, 
représentant les coordonnées de la case (par 
ex C03). La valeur numérique se trouve sous 
forme de chaine dans le tableau, 


• des fonctions préprogrammées, permettant 
d'opérer sur la ligne ou la colonne pointée par 
la case résultat. Les noms de ces fonctions sont 
placés en DATA. Il est donc possible d'en créer 
d'autres. Les arguments de ces fonctions, pla- 
cés entre parenthèses, indiquent les lignes ou 
colonnes extrêmes concernées. Pour indiquer 
qu'il s'agit d'une fonction, on place un@ au 
début du nom. 

Des exemples : 

g)SOML(A-F) : somme en ligne des cases des 
colonnes A à F, 

@MOYC (03 - 1 0) : moyenne en colonne des 
cases des lignes 03 à 10. 

La chaine 0P$ doit débuter et finir par des 
parenthèses, elles sont placées par le 
programme. 

Pour faire les calculs, on utilisera une pile de 
valeur numérique (tableau V(l)) et un pointeur 
de valeur numérique (PV) ainsi qu'une pile 
d'opérations (tableau 0P(l)) et un pointeur 
d'opérations (PO). 

Nous donnons ci-dessous le programme Basic 
de calcul ainsi que l'organigramme 
correspondant. 
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